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

Задание : Напишите программу вычисления y по формуле: y = ( 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.
Итоговая практическая работа по программированию9 классЯзык программирования Pascal Логические операцииProgram BIT3;var А,В,С,D: real; begin readln(А,В,С);     if (A>=B) and (A>=C) then 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 – это логическое умножение или конъюнкция. Ее результат - "истина", если значения обоих операндов - "истина". Очевидно, что если А>=В и А>=С, то А имеет наибольшее значение и т. д. Задание 3. Составьте программу сортировки по возрастанию значений трех переменных: А, В, С. Решение: Program Рг;Var S1, S2, S3, С: Integer; BeginWriteln(' Введите три числа'); 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. Задание 4. Составьте программу решения линейного уравнения вида Ах — В. Решение:Program linear_equation;Var a, b: real;BeginWrite('введите коэффициенты а и b:');Readln(a, b);If a<>0 then write('x0',-b/a) ElseIf b=0 then write('Kopeнь любое число')Else write('Kopней нет');End. Задание 5. Составьте программу решения квадратного уравнения. Решение:program kv;var a,b,c,D,x1,x2:real;beginRead (a,b,c);D:=b*b-4*a*c;if D<0then Writeln('KOPHEЙ НЕТ')elseif D=0 then begin D:=sqrt(D); x1:=(-b)/(2*a); Writeln('x=',x1);elsebeginD:=sqrt(D);xl:=(-b+D)/(2*a);x2:=(-b-D)/(2*a);Writeln('xl=',xl);Write Ln('x2=',x2);end;end. program sum;uses crt;var a,summ: integer; begin 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 Пример программы с использованием массиваprogram Maximum;var A : array [1..5] of integer; i, 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?Вопрос: как изменится программа, если числа будут действительными?