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

goto 1;

2:

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

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

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

end.

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

«Цикл с предусловием» (While..do)

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

Написать алгоритм и программу вычисления у(х) или z(t) из лабораторной работы № 1 для заданных значений диапазона и шага аргументов z, t, таблица 5. Первое значение вычисляется в крайней левой точке заданного диапазона значений аргументов х. Произвести тестирование программы.

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

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

Program lab3v8;

Uses

Crt ;

Label

1,2 ;

const

a = 1.1;

b = 4;

dx = 0.5;

var

y,x: Real;

ch: Char;

begin

1:

clrscr;

textcolor (11);