Задание 9.

По представленной блок-схеме составьте программу и получите результат ее выполнения.

Решение:аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа

Листинг:

program a9;

uses crt;

label 1;

var

a,s,k,sr:integer;

begin

writeln('Программа по заданной схеме');

writeln('---------------------------');

s:=0;

k:=0;

a:=10;

1: s:=s*a;

k:=k+10;

a:=a+1;

if a>100 then begin

sr:=s*k*k; writeln('sr= ',sr, ' k= ',k) end

else goto 1;

writeln('конец');

readln;

end.

Алгоритм:

Тестовый пример

Проверка:

Задание 10.

Составьте блок-схему и программу, которая запрашивает у пользователя число текущего месяца и выводит название праздника в этот день. Рекомендуемый экран

Введите число месяца июнь - >1

1 июня – День защиты детей

Решение: ааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа

Листинг:

program a10;

uses crt;

var

k:integer;

begin

writeln(' Prazdichnie dni maya ');

writeln(' ----------------------');

write(' Vvesti chislo tekushego mesaca--> ');

readln(k);

case k of //operator vibora

1..2: writeln(k:4,' may - den solidarnosti ');

3..8: writeln(k:4,' may - net prazdnika');

9: writeln(k:4,' may - Den Pobedi');

10..31: writeln(k:4,' may - net prazdnika ');

else writeln(k:4,' - net takogo dnya');

end;

writeln('konec');

readln;

end.

Алгоритм:

Тестовый пример:

Проверка:

Задание 11.

Составить программу, в которой с помощью оператора WHILE подсчитать сумму ряда до тех пор, пока член ряда не будет меньше 0.005.

Решение: ааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа

Листинг:

program sumr;

uses crt;

var i:integer;

a,s:real;

BEGIN

clrscr;

writeln('vichislenie summi ryada');

writeln('-----------------------');

writeln;

a:=1/3;s:=a; i:=4;

while a>=0.005 do begin

i:=i+1;

a:= 5/(i*i-1);

s:=s+a;

end;

writeln('s=',s:6:3, ' i= ',i:2, ' a= ',a:6:4);

readln;

END.

Тестовый пример:

Проверка:

Алгоритм:

Список литературы

1. «Turbo Pascal в задачах и примерах» Автор: Н. Культин Издательство: БХВ-Петербург 2006 г.

2. «Turbo Pascal 7.0 на примерах» Автор: Ю. А. Шпак Издательство: Юниор: 2003 г.

3. «Turbo Pascal. Самоучитель» Автор: О. А. Меженный Издательство: Вильямс, Диалектика 2008г.