Блок-схема
цикла с предусловием
Блок-схема
цикла с постусловием
n:= 0;
repeat
n:=n+1;
a:=10*n;
writeln(n:2,’ ‘,a:3);
until n>=9;
Блок-схема цикла с параметром
(цикл FOR)
for <счетчик> := <начальное значение> to <конечное значение> do
begin
<Операторы>
end;
for <счетчик> := <начальное значение> downto <начальное значение> do
begin
<Операторы>
end;
с увеличением значений счетчика (параметра)
с уменьшением значений счетчика (параметра)
Сохранить программу в папке с Вашим именем в системной рабочей папке
PABCWork.NET \ Ваше_имя\Cikl_1.pas
Сохранить как...
Program Ex1;
Var
A : Integer;
S : Longint; { Длинное целое}
Begin
A:=1;
S:=0; { переменная S для накапливания суммы }
While A<=100 Do { Начало цикла – проверка условия }
Begin
S:=S+A*A;
A:=A+1
End;
Writeln(‘Вывод результата S= ’ ,S)
End.
Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_1.pas
Program abc;
var x, у: integer;
begin
x:=2;
while x <= 10 do
begin
Y:=x*x;
writeln(‘вывод х: ’, x, ‘вывод у: ’, y);
x:= x+2;
end;
end.
Применить оператор цикла с предусловием
для вычисления значения функции y=x2,
при значениях x 2, 4, 6, 8, 10.
Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_2.pas
Напечатайте и сохраните программу в файле Cikl_3.pas в папке с Вашим именем
в системной рабочей папке
PABCWork.NET \ Ваше_имя\Cikl_3.pas
Program abc;
var x: integer;
begin
x:=2;
repeat
writeln(x, sqr(x));
x:= x+2;
until x > 10;
end.
Напечатайте и сохраните программу в файле Cikl_4.pas в папке с Вашим именем
в системной рабочей папке
PABCWork.NET \ Ваше_имя\Cikl_4.pas
Program Ex3;
Var
A : Integer;
S : Longint;
Begin
S:=0;
For A:=1 To 100 Do
S:=S+A*A;
Writeln(‘Вывод результата S= ’ ,S)
end.
ДОМАШНЕЕ ЗАДАНИЕ
И. Г. Семакин и другие. Информатика и ИКТ. М.: БИНОМ. 2008
§39 – прочитать стр. 213 - 215.
Разобрать Алгоритм СЛОВА .
Конспект программы WORDS.
Конспект определений «отладка программы», «тест», «тестирование программы».
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть