Презентация, доклад по информатике Составление программ на языке программирования Pascal

1- x2 + 5x4 )2, где x - данное целое число.

Program zadacha2;
Var х, у: integer;
Вegin
Write(‘Введите целое число ’);
Read(x);
y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
Write(‘Значение у равно ’,y);
Read(y);
End.

D:=A;      if (B>=A) and (B>=C) then D:=B;      if (C>=A) and (C>=B) then D:=C;      writeln(D) end.

Составим еще один, третий вариант программы определения большего числа из трех.

В Паскале присутствуют все три основные логические операции:
and - И (конъюнкция),
or - ИЛИ (дизъюнкция),
not - НЕ (отрицание).

Операция and – это логическое умножение или конъюнкция.
Ее результат - "истина", если значения обоих операндов - "истина".
Очевидно, что если А>=В и А>=С, то А имеет наибольшее значение и т. д.

В, С.

числа');
Readln(S1,S2,S3);
If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое S1 и S2}
If S2>S3 then begin C:=S2; S2:=S3; S3:=C; end; {Меняем местами содержимое S2 и S3}
If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое SI и S2}
Writeln('Числа в порядке возрастания:', S1,S2,S3) End.

then write('x0',-b/a) Else
If b=0 then write('Kopeнь любое число')
Else write('Kopней нет');
End.

x1:=(-b)/(2*a); Writeln('x=',x1);
else
begin
D:=sqrt(D);
xl:=(-b+D)/(2*a);
x2:=(-b-D)/(2*a);
Writeln('xl=',xl);
Write Ln('x2=',x2);
end;
end.

writeln(‘Введите произвольные целые числа, признак окончания ввода: "0" ');
read(a);
summ:=0;
while a<>0 do begin
if (a mod 7=0) and (a mod 10 =4) then
summ:=summ+a;
Readln(a);
end;
writeln (‘Сумма чисел равна  ' ,summ);
readln;
end.

Нахождение чисел кратных А и оканчивающихся на B

max : integer;
begin
for i:=1 to 5 do read( A[i] );
max:= A[1];
for i:=2 to 5 do if A[i] > max then max:= A[i];
write(max);
end.

Вопрос: как изменится программа, если чисел станет 10?
Вопрос: как изменится программа, если чисел станет 1000?
Вопрос: как изменится программа, если числа будут действительными?