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

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 then goto 2;

goto 1;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');

end.

Лабораторная работа 5.2

«Цикл с заданным числом повторений» (For..to..do)

Лабораторное задание

Задание 2. Для заданного х, числа слагаемых или п вычислить следующее.

Алгоритм выполнения:

Текст программы:

Program lab5_2v8;

Uses Crt ;

Label 1,2 ;

var

b,x,s: real;

a: Shortint;

ch: Char;

vr: Byte;

c,zn,zi,i,n : Longint;

begin

1:

clrscr;