Презентация на тему "Язык Паскаль"
презентация к уроку по информатике и икт (9 класс) на тему

Слайд 1

Язык Паскаль (разветвляющий, циклический алгоритмы) Автор: Киселёва Дарья Олеговна, Учитель информатики МБОУ Основная школа №24 г. Киселевска

Слайд 2

Найди соответствующее значение ‘ Введи значение ’ 45 -312 ‘ Доброе утро! ’ 0 7.34 3.14 true Char Integer Const Boolean Real Автор: Киселева Дарья Олеговна

Слайд 3

Разветвляющий алгоритм Полная: if условие then {Действие 1} else {Действие 2} Неполная: if условие then {Действие 1}; ! Надо заметить, что при использовании полной формы оператора if точку с запятой ";" после слова else ставить не нужно! Автор: Киселева Дарья Олеговна

Слайд 4

Цикл «ПОКА» или с предусловием While <условие> Do <оператор >; или While <условие> Do Begin < оператор #1>; <оператор #2>; . . . End ; Автор: Киселева Дарья Олеговна

Слайд 5

Цикл «ДО» или с постусловием Repeat < оператор #1>; <оператор #2>; . . . Until <условие>; Автор: Киселева Дарья Олеговна

Слайд 6

Цикл с известным числом повторений For <И.П.>:=<Н.З.> To <К.З.> Do <оператор >; { значение увеличивается на единицу } For <И.П.>:=<Н.З.> Downto <К.З.> Do <оператор >; { значение уменьшается на единицу } Автор: Киселева Дарья Олеговна

Слайд 7

Найти сумму квадратов всех натуральных чисел от 1 до 100 . I. С использованием цикла "Пока". Program Ex1; Var A : Integer ; S : Integer ; Begin A :=1; S:=0; While A<=100 Do Begin S :=S+A*A; A :=A+1 End ; Writeln (S) End . Автор: Киселева Дарья Олеговна

Слайд 8

Найти сумму квадратов всех натуральных чисел от 1 до 100. II. С использованием цикла "До". Program Ex2; Var A : Integer ; S : Integer ; Begin A:=1; S:=0; Repeat S:=S+A*A; A:=A+1 Until A>100; Writeln (S) End . Автор: Киселева Дарья Олеговна

Слайд 9

Найти сумму квадратов всех натуральных чисел от 1 до 100. III. С использованием цикла "С параметром". Program Ex3; Var A : Integer ; S : Integer ; Begin S:=0; For A:=1 To 100 Do S:=S+A*A; Writeln (S) End . Автор: Киселева Дарья Олеговна

Слайд 10

Автор: Киселева Дарья Олеговна