Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему по информатике на тему Программирование ветвлений в Паскале

Исправь ошибки в программе Program primer; Var b,s: real; Begin Writeln (‘Введите числа b и с’) Readln( b,c); a=b+c; Write ln
Программирование ветвлений  в Паскале Исправь ошибки в программе Program primer; Var b,s: real; Запиши на языке программирования математическое выражениех2+2ху-у2    Переведите Условный оператор  (полное ветвление)IF условие THEN  ELSE ;В качестве условий Условный оператор  (неполное ветвление)IF условие THEN ; Условный оператор  (неполное ветвление)IF условие THEN Задача  1. Вывести на экран большее из двух чисел, введенных с Задача  2. Вывести на экран большее из трех чисел, введенных с Задача 3. Составить программу нахождения значения функции У=Program Primer;Var x,y: real;BeginWriteln (‘Введите Задача 4: Составим программу решения квадратного уравнения. program kvadrat;var a,b,c,x1,x2,d:real;beginreadln (a,b,c);d:=sqr(b)-4*a*c;if d Составьте блок-схему, соответствующую этому алгоритму. Составить программу, соответствующую этому алгоритму.Program PRIMER;Var x, Y: integer;BEGIN	Writeln (‘Введите x’);   Readln(x);	If (x Составить программу, соответствующую этому алгоритму.Program PRIMER;Var x, Y: integer;BEGIN	Writeln (‘Введите x’);
Слайды презентации

Слайд 2
Исправь ошибки в программе

Program primer;
Var b,s:

Исправь ошибки в программе Program primer; Var b,s: real;  Begin

real;
Begin
Writeln

(‘Введите числа b и с’)
Readln( b,c);
a=b+c;
Write ln ( ‘a=’,a);
End.


Слайд 3 Запиши на языке программирования математическое выражение
х2+2ху-у2

Запиши на языке программирования математическое выражениех2+2ху-у2  Переведите запись с



Переведите запись с языка программирования Паскаль

на математический язык
Sqrt(x)*3 – (a+2)/b

Слайд 4 Условный оператор (полное ветвление)
IF условие THEN ELSE

Условный оператор (полное ветвление)IF условие THEN ELSE ;В качестве условий используются

;




В качестве условий используются логические выражения,
например, такие: (C=D); (CD)


(a>b) and (a>c) or (a=d)

Слайд 5 Условный оператор (неполное ветвление)
IF условие THEN ;

Условный оператор (неполное ветвление)IF условие THEN ;

Слайд 6 Условный оператор (неполное ветвление)
IF условие THEN

Условный оператор (неполное ветвление)IF условие THEN     begin

begin

<оператор 1>;
<оператор 2>;
<оператор 3>;
end





Конструкция вида:
begin <последовательность операторов> end
называется составным оператором.


Слайд 7 Задача 1. Вывести на экран большее из

Задача 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. Вывести на экран большее из

Задача 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

Задача 3. Составить программу нахождения значения функции У=Program Primer;Var x,y: real;BeginWriteln

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

Задача 4: Составим программу решения квадратного уравнения. program kvadrat;var a,b,c,x1,x2,d:real;beginreadln (a,b,c);d:=sqr(b)-4*a*c;if d

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.

Слайд 11 Составьте блок-схему, соответствующую этому алгоритму.

Составьте блок-схему, соответствующую этому алгоритму.

Слайд 12 Составить программу, соответствующую этому алгоритму.
Program PRIMER;
Var x, Y:

Составить программу, соответствующую этому алгоритму.Program PRIMER;Var x, Y: integer;BEGIN	Writeln (‘Введите x’);  Readln(x);	If (x

integer;
BEGIN
Writeln (‘Введите x’);
Readln(x);
If (x


else if (x<10)
then Y:=2*x
else Y:=0;
Writeln (‘Y = ’,Y);
END.

  • Имя файла: prezentatsiya-po-informatike-na-temu-programmirovanie-vetvleniy-v-paskale.pptx
  • Количество просмотров: 157
  • Количество скачиваний: 0