Операторы цикла на языке Паскаль

Практическое занятие 11

Тема: Составление программ. Оператор цикла с предусловием

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

Развить память,

Выработать усидчивость, аккуратность, внимательность

Ход урока

1. Орг момент(1-2 мин)

2. Вводный инструктаж

• Включить ПК

• Ждать полной загрузки

• Открыть среду Паскаль АВС

1. Текущий инструктаж

• Повторить команды присвоения, ветвления, операторы цикла на ЯП Паскаль

• Изучить задания

• Составить программу решения поставленной задачи

• Ввод программы в среду Паскаль АВС

1. Практическая часть

Задачи на циклические алгоритмы

Циклы с известным числом повторений

1. Вывести на экран 3 раза слово «Hello». Особенность: одинаковые действия

выполняются 3 раза.

2. Напечатать ряд из повторяющихся чисел 20 в виде:

20 20 20 20 20 20 20 20 20 20

3. Вывести столбиком следующие числа:

2.8 … 8.8

4. Напечатать числа следующим образом:

10 10.4

11 11.4

. . .

25 25.4

5. Напечатать числа следующим образом:

25 25.5 24.8

26 26.5 25.8

. . .

35 35.5 34.8

6. Напечатать столбиком все целые числа от 20 до 35 и вычислить корни этих чисел.

7. Напечатать столбиком все целые числа от а до b (значения а и b вводятся с

клавиатуры).

Циклы с предусловием

8. Составить программу вывода 10 целых чисел на экран.

9. Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 30.

10.Вычислить сумму ряда, с точностью e = 0,1.

11.Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В

каждый день рождения он удваивал свой подарок и прибавлял к нему столько

долларов, сколько лет мне исполнилось. Написать программу, указывающую, к

какому дню рождения подарок превысит 100$.

Циклы с постусловием

12.Написать программу ввода неопределённого ряда целых чисел до тех пор, пока не

будет введён 0. После ввода 0 программа должна вывести сообщение «Программа

закончена».

13. Составить программу вывода 30 целых чисел на экран.

14.Найти сумму ряда S = 15+16+17+...+n.

15.Составить программу подсчета суммы S первых 1000 членов гармонического ряда

1+1/2+1/3+1/4+...1/N. Округлить результат до двух знаков после запятой.

Решение циклических задач

1. Program C2;

var i: integer;

begin

for i:=1 to 10 do write(20,' ')

end.

2. Program C3;

var i: integer;

begin

for I:=2 to 8 do writeln(' ',I+0.8:0:1);

end.

3. Program C4;

var i: integer;

begin

for I:=10 to 25 do writeln(I,' ',I+0.4:0:1);

end.

4. Program C5;

var i: integer;

begin

for I:=25 to 35 do writeln(I,' ',I+0.4,'

',i+0.8:0:1);

end.

5. Program C6;

var i: integer;

begin

for I:=20 to 35 do writeln(I,' ',sqrt(i):0:1);

end.

6. Program C7;

var

a,b,i:integer;

begin

readln(a,b);

for i:=a to b do writeln(i)

end.

9. program c2;

var

sum:real;

n:real;

BEGIN

sum:=0;

n:=1;

while n

begin

sum:=sum+n;

n:=n+0.5;

end;

writeln('Сумма равна: ',sum);

END.

11. program c1;

var dr,pod: integer;

begin

pod:=1;

dr:=1;

while pod

begin

pod:=(pod*2)+dr;

dr:=dr+1;

end;

write('Возраст= ',dr);

end.

12. Program N4;

Var A: Integer;

begin

REPEAT

Write('Введите числа (0 - выход): ');

Readln(A);

UNTIL A=0;

Write(Программа закончена ')

END.

15. Program Summa;

Var S:real; N:integer;

Begin

S:=0;N:=0;

repeat

N:=n+1;

S:=s+1/n

Until n1000;

Writeln(s:0:2);

End

1. Заключительный инструктаж

• Выставить оценки по ПР

• Выйти из программной среды Паскаль

• Выключить ПК