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

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

end

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

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

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

Задание 1. Изменить алгоритм и программу из лабораторной работы 4, используя вместо цикла с постусловием счетный цикл.

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

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

Program lab5_1v8;

Uses

Crt ;

Label

1,2 ;

Const

X1=-1; X2=2; N=11;

var

y,x,dx: Real;

i: Integer;

ch: Char;

vr: Byte;

begin

1:

clrscr;

textcolor (11);

Writeln (' ЦИКЛ С ЗАДАННЫМ ЧИСЛОМ ПОВТОРЕНИЙ');

Writeln ;

Writeln (' Лабораторная работа № 5 (задания 1), 8-ой вариант');

Writeln (' Дано:');