ввода-вывода (пример учебной программы)
Ветвление (опорный конспект)
Циклы с условием (опорный
конспект)Циклы с пред- и постусловием (пример учебной программы)
ESC
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
ESC
Типы данных
Целый: 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ый столбец [180] и 4ая строка [125] экрана.
СОДЕРЖАНИЕ
Лабораторная работа № 1
Ученика(цы) 9 класса …
Фамилия
Имя
Задание 1 (баллов): _
Задание 2 (баллов): _
Задание 3 (баллов): _
Средний балл: …
Конспект
{Формулы}
sr = (b1+b2+b3) / 3
{Описание выходных переменных}
sr – среднее арифметическое баллов
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);
Переписать текст программы в тетрадь
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
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 …
Конспект
Формат оператора выбора:
Пример записи:
Задать число (от 1 до 4-х). По порядковому номеру числа, определить , какое время года. (1-зима; 2-весна; 3-лето; 4-осень).
Case x of
1: writeln (‘Зима’) ;
2: writeln (‘Весна’) ;
3: writeln (‘Лето’) ;
4: writeln (‘Осень’) ;
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;
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;
зацикливание
for i:=a downto b do
begin
{тело цикла}
end;
i:= a;
while i >= b do begin
{тело цикла}
i:= i - 1;
end;
Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.
Замена цикла for на while возможна всегда.
Особенности:
тело цикла всегда выполняется хотя бы один раз
после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла
repeat
{тело цикла}
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;
зацикливание
СОДЕРЖАНИЕ
Программа
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