Презентация на тему Pascal: основные типы алгоритмов

ввода-вывода (пример учебной программы)
Ветвление (опорный конспект)
Циклы с условием (опорный

ESC

Const … ; {раздел констант}
Var … ;

Типы данных
Целый: Integer
Вещественный: Real

Объявление переменных
Var x, y: Integer ;
k, z: Real ;

Оператор присваивания
имя_переменной := <выражение>;
Пример: p:=2*(a+b);

Процедура ввода (с подсказкой)
Write(‘Zadaite a: ’);
Readln(a);
 / вывода
Writeln(‘Perimetr= ’, p);

Работа с экраном
ClrScr – очистка текущего окна GotoXY(20, 4)– перемещение курсора в позицию: 20ый столбец [180] и 4ая строка [125] экрана.

СОДЕРЖАНИЕ

Паскаль (Pascal)

подсказок задать const, значения заданий задать с клавиатуры. Вывод

Лабораторная работа № 1
Ученика(цы) 9 класса …
Фамилия
Имя

Задание 1 (баллов): _
Задание 2 (баллов): _
Задание 3 (баллов): _


Средний балл: …

(const)
kl – номер класса (const)
b1 – балл

Конспект

{Формулы} sr = (b1+b2+b3) / 3

{Описание выходных переменных} sr – среднее арифметическое баллов

r = 1; kl = 9; Var

Begin
Clrscr;

Readkey;
End.

Write (‘Задание 1 (баллов): ’); Readln(b1);
Write (‘Задание 2 (баллов): ’); Readln(b2);
Write (‘Задание 3 (баллов): ’); Readln(b3);

Writeln (‘Лабораторная работа № ’, r);
Writeln (‘Ученика ’, kl, ‘ класса …’);
Writeln (‘Фамилия’);
Writeln (‘Имя’);

sr := (b1+b2+b3) / 3;
Writeln (‘Средний балл: ’, sr:0:2);

Переписать текст программы в тетрадь

r = 1; kl = 9; Var

Begin
Clrscr;

Readkey;
End.

GotoXY(15, 11); Write (‘Задание 1 (баллов): ’); Readln(b1);
GotoXY(15, 13); Write (‘Задание 2 (баллов): ’); Readln(b2);
GotoXY(15, 15); Write (‘Задание 3 (баллов): ’); Readln(b3);

GotoXY(30,2); Writeln (‘Лабораторная работа № ’, r);
GotoXY(30,4); Writeln (‘Ученика ’, kl, ‘ класса …’);
GotoXY(35,6); Writeln (‘Фамилия’);
GotoXY(45,8); Writeln (‘Имя’);

sr := (b1+b2+b3) / 3;
GotoXY(20, 22); Writeln (‘Средний балл: ’, sr:0:2);

Набрать программу в среде Pascal

Дано}
блок "процесс"
{вычисления}
блок "вывод“ {результат}
блок "конец"
вывод t
Задача: Напишите программу,

program Lr2;
uses Crt;
const g=9.81;
var ……………: real;
Begin
clrscr;
Write(‘Zadaite visoty doma’);
Readln (……);
t := ………………………………;
Writeln ('Kirpich padaet ', …., ' c');
readkey;
End.

Программа

h, t

h

Sqrt(2*h/g)

t

Вместо многоточия впишите необходимые имена переменных и формулу вычисления

Блок-схему и текст программы переписать в тетрадь

СОДЕРЖАНИЕ

двух направлений, в зависимости от выполнения определенного условия.
Условный оператор
Различают

Выбор

только истинность условия}
Представление в виде блок–схемы:
Конспект
Формат оператора:

условий можно в программе использовать и составные

условие –6 < x ≤ 2 в математике - можно записать:
– 6 < x и x ≤ 2;
на языке Pascal: IF (–6 < x) and (x <=2) Then …

в математике : x <– 6 или x > 2;
на языке Pascal: IF (x <–6) or (x >2) Then …

Конспект

;
…
Else оператор4;
end ;
Для ситуаций, где имеется несколько

Формат оператора выбора:

Пример записи:
Задать число (от 1 до 4-х). По порядковому номеру числа, определить , какое время года. (1-зима; 2-весна; 3-лето; 4-осень).
Case x of
1: writeln (‘Зима’) ;
2: writeln (‘Весна’) ;
3: writeln (‘Лето’) ;
4: writeln (‘Осень’) ;
end;

СОДЕРЖАНИЕ

цикла}
end;
можно использовать сложные условия:
если в

while (a {тело цикла}
end;

while a < b do a:= a + 1;

Конспект

данных)
параметр = нач_знач
условие
Сравнение параметра с конечным
значением
Тело цикла
вычисления
вывод
да
конец
нет
изменение параметра
Конспект

в цикл
если условие на входе в цикл ложно, цикл

a:= 4; b:= 6;
while a > b do a:= a – b;

a:= 4; b:= 6;
while a < b do d:= a + b;

b?
a:= 4; b:= 6;
while a < b do a:=

2 раза
a = 6

a:= 4; b:= 6;
while a < b do a:= a + b;

1 раз
a = 10

a:= 4; b:= 6;
while a > b do a:= a + 1;

0 раз
a = 4

a:= 4; b:= 6;
while a < b do b:= a - b;

1 раз
b = -2

a:= 4; b:= 6;
while a < b do a:= a - 1;

зацикливание

begin
{тело цикла}
end;
i:= 1;
while i

for i:=a downto b do
begin
{тело цикла}
end;

i:= a;
while i >= b do begin
{тело цикла}
i:= i - 1;
end;

Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.

Замена цикла for на while возможна всегда.

read(n);
until n > 0;
Цикл с постусловием

Особенности:
тело цикла всегда выполняется хотя бы один раз
после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

repeat
{тело цикла}
until условие;

условие ВЫХОДА

Конспект

данных)
параметр = нач_знач
условие
Сравнение параметра с конечным значением
Тело цикла
вычисления
вывод
да
конец
нет
изменение параметра
Конспект

b?
a:= 4; b:= 6;
repeat a:= a + 1; until

3 раза
a = 7

a:= 4; b:= 6;
repeat a:= a + b; until a > b;

1 раз
a = 10

a:= 4; b:= 6;
repeat a:= a + b; until a < b;

зацикливание

a:= 4; b:= 6;
repeat b:= a - b; until a < b;

2 раза
b = 6

a:= 4; b:= 6;
repeat a:= a + 2; until a < b;

зацикливание

СОДЕРЖАНИЕ

Паскаль (Pascal)

, если х изменяется

Программа

program Lr9;
uses Crt;
var x, y: real;
Begin
clrscr;
x:= 5;
While x<=15 do
begin
y = sqrt(x);
Writeln (‘Pri x= ‘, x:0:1, ‘ y= ‘, y:0:3);
x:= x + 0.5;
end;
readkey;
End.

Блок-схема

начало

x := 5

x  15

конец

выв x, y

да

нет

x := x + 0,5