Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Презентация по информатике "Составление программ на языке программирования Pascal"

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

  • Информатика

Поделитесь материалом с коллегами:

Задание : Напишите программу вычисления y по формуле: y = ( 1- x2 + 5x4 )2,...
Итоговая практическая работа по программированию 9 класс Язык программировани...
Логические операции Program BIT3; var А,В,С,D: real; begin readln(А,В,С);    ...
Задание 3. Составьте программу сортировки по возрастанию значений трех переме...
Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три...
Задание 4. Составьте программу решения линейного уравнения вида Ах — В.
Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффи...
 Задание 5. Составьте программу решения квадратного уравнения.
Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c...
program sum; uses crt; var a,summ: integer; begin writeln(‘Введите произвольн...
Пример программы с использованием массива program Maximum; var 	A :	array [1....
1 из 11

Описание презентации по отдельным слайдам:

№ слайда 1 Задание : Напишите программу вычисления y по формуле: y = ( 1- x2 + 5x4 )2,
Описание слайда:

Задание : Напишите программу вычисления 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.

№ слайда 2 Итоговая практическая работа по программированию 9 класс Язык программировани
Описание слайда:

Итоговая практическая работа по программированию 9 класс Язык программирования Pascal

№ слайда 3 Логические операции Program BIT3; var А,В,С,D: real; begin readln(А,В,С);    
Описание слайда:

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

№ слайда 4 Задание 3. Составьте программу сортировки по возрастанию значений трех переме
Описание слайда:

Задание 3. Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.

№ слайда 5 Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три
Описание слайда:

Решение: 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.

№ слайда 6 Задание 4. Составьте программу решения линейного уравнения вида Ах — В.
Описание слайда:

Задание 4. Составьте программу решения линейного уравнения вида Ах — В.

№ слайда 7 Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффи
Описание слайда:

Решение: 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.

№ слайда 8  Задание 5. Составьте программу решения квадратного уравнения.
Описание слайда:

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

№ слайда 9 Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c
Описание слайда:

Решение: 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.

№ слайда 10 program sum; uses crt; var a,summ: integer; begin writeln(‘Введите произвольн
Описание слайда:

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

№ слайда 11 Пример программы с использованием массива program Maximum; var 	A :	array [1.
Описание слайда:

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

Выберите курс повышения квалификации со скидкой 50%:

Автор
Дата добавления 15.11.2016
Раздел Информатика
Подраздел Презентации
Просмотров123
Номер материала ДБ-352787
Получить свидетельство о публикации

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх