Иллюстрированный самоучитель по Turbo Pascal для начинающих

Решения (задачи 131-150)

Задача 136

{ вычисляемое значение ПИ }
{ точность вычисления }
{ номер члена ряда }
{ значение члена ряда }
{ Вычисление числа "ПИ" var
p:real;
t:real;
n:integer;
elemrreal; begin
p: = 0;
n: = l;
elem: = l; { начальное значение}
write('Задайте точность вычисления ПИ › ');
readln(t);
writeln('Вычисление ПИ с точностью',t:9:6);
while elem >= t do
begin
elem: = l/(2*n-l); if (n MOD 2) = 0
then p: = p-elem else p: = p+elem; n: = n+l;
end;
p: = p*4;
writeln('Значение ПИ с точностью',t:9:6,' равно1,р:9:6);
writeln('Просуммировано ',п,' членов ряда.');
readln; end.

Задача 137

{ Вычисление наибольшего общего делителя двух целых чисел }
var
nl,n2:integer; { числа, НОД которых надо найти }
nod:integer; { наибольший общий делитель } r:integer; { остаток от деления nl на n2 }
begin
writeln('Вычисление наибольшего общего делителя1);
writeln('для двух целых чисел.');
write('Введите в одной строке два числа ');
writeln('и нажмите Enter');
write(' › ');
readln(nl,n2);
while (nl mod n2)<>0 do
begin
r: = nl mod n2; { остаток от деления} nl: = n2; n2: = r;
end;
nod: = n2;
writeln (nod чисел ',nl,' и ',п2,' это ',nod); readln;

Задача 138

{ Приветствие } var
name: string[40]; { имя пользователя } begin
writelnC Как Вас зовут?');
writeln('(введите свое имя и нажмите Enter');
write(' › ');
readln(name);
writeln('Здравствуйте, ',name,'!');
readln; end.

Задача 139

{ Посимвольный вывод сообщения) uses
Crt; { для доступа к процедуре Delay } var
msg: string[80]; (сообщение } n: integer; (номер выводимого символа } begin
msg: = 'Приветствую великого программиста! '; for n: = 1 to Length(msg) do begin
write(msg[n]);
Delay(lOO); { задержка 0.1 сек } end;
readln; end.

Задача 140

{ Выводит код введенного символа } var
sim: char; { символ } code: integer; (код символа } begin
writeln ('Введите символ и нажмите Enter.');
writeln ('Для завершения работы программы введите точку.');
repeat
write(' › '); readln(sim); code: = Ord(sim);
writeln('Символ: *,sim, ' Код: ',code); until sim = '.';
end.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.