real;
Begin
Writeln
(‘Введите числа b и с’)Readln( b,c);
a=b+c;
Write ln ( ‘a=’,a);
End.
- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему по информатике на тему Программирование ветвлений в Паскале
Содержание
- 2. Исправь ошибки в программе Program primer; Var
- 3. Запиши на языке программирования математическое
- 4. Условный оператор (полное ветвление)IF условие THEN
- 5. Условный оператор (неполное ветвление)IF условие THEN ;
- 6. Условный оператор (неполное ветвление)IF условие THEN
- 7. Задача 1. Вывести на экран большее
- 8. Задача 2. Вывести на экран большее
- 9. Задача 3. Составить программу нахождения значения функции
- 10. Задача 4: Составим программу решения квадратного уравнения. program kvadrat;var a,b,c,x1,x2,d:real;beginreadln (a,b,c);d:=sqr(b)-4*a*c;if d
- 11. Составьте блок-схему, соответствующую этому алгоритму.
- 12. Составить программу, соответствующую этому алгоритму.Program PRIMER;Var x, Y: integer;BEGIN Writeln (‘Введите x’); Readln(x); If (x
- 13. Скачать презентацию
- 14. Похожие презентации
Исправь ошибки в программе Program primer; Var b,s: real; Begin Writeln (‘Введите числа b и с’) Readln( b,c); a=b+c; Write ln
Слайд 2
Исправь ошибки в программе
Program primer;
Var b,s:
real;
(‘Введите числа b и с’)Readln( b,c);
a=b+c;
Write ln ( ‘a=’,a);
End.
Слайд 3
Запиши на языке программирования математическое выражение
х2+2ху-у2
Переведите запись с языка программирования Паскаль
на математический язык Sqrt(x)*3 – (a+2)/b
Слайд 4
Условный оператор
(полное ветвление)
IF условие THEN ELSE
;
В качестве условий используются логические выражения,
например, такие: (C=D); (CD)
(a>b) and (a>c) or (a=d)
Слайд 6
Условный оператор
(неполное ветвление)
IF условие THEN
begin
<оператор 1>;<оператор 2>;
<оператор 3>;
end
Конструкция вида:
begin <последовательность операторов> end
называется составным оператором.
Слайд 7 Задача 1. Вывести на экран большее из
двух чисел, введенных с клавиатуры.
Program BID;
Var A,B, D:
integer;Begin
Writeln (‘Введи первое число’);
Readln (A);
Writeln (‘Введи первое число’);
Readln (B);
If A>B then D:=A else D:=B;
Writeln (D);
End.
Слайд 8 Задача 2. Вывести на экран большее из
трех чисел, введенных с клавиатуры.
Program BIT1;
var A,B,C,D: integer;
begin
write ('Введите
первое число:');read (A);
write ('Введите второе число:');
read (B);
write ('Введите второе число:');
read (C);
if A>B then D:=A else D:=B;
if C>D then D:=C;
writeln ('Большее из трех чисел',D);
End.
Слайд 9
Задача 3. Составить программу нахождения значения функции У=
Program
Primer;
Var x,y: real;
Begin
Writeln (‘Введите число’);
Readln (x);
IF (X-4)>=0 THEN begin
y:=sqrt (x-4);writeln (y);
end
ELSE writeln (‘корней нет’);
end.
Слайд 10
Задача 4: Составим программу решения квадратного уравнения.
program kvadrat;
var
a,b,c,x1,x2,d:real;
begin
readln (a,b,c);
d:=sqr(b)-4*a*c;
if d
x2:=(-b-sqrt(d))/(2*a);writeln ('x1=', x1);
writeln ('x2=', x2);
end
end.
Слайд 12
Составить программу, соответствующую этому алгоритму.
Program PRIMER;
Var x, Y:
integer;
BEGIN
Writeln (‘Введите x’);
Readln(x);
If (x
else if (x<10)
then Y:=2*x
else Y:=0;
Writeln (‘Y = ’,Y);
END.
