Презентация по информатике Составление программ на языке программирования 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, Begin Writeln( Введите три числа), 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, Begin Write(введите коэффициенты а и b:), Readln(a, b), If a<,>,0 then write(x0,-b/a) Else If b=0 then write(Kopeнь любое число) Else write(Kopней нет), End.

Задание 5. Составьте программу решения квадратного уравнения.

Решение: program kv, var a,b,c,D,x1,x2:real, begin Read (a,b,c), D:=b*b-4*a*c, if D<,0 then Writeln(KOPHEЙ НЕТ) else if D=0 then begin D:=sqrt(D), 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.

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? Вопрос: как изменится программа, если числа будут действительными?