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

goto 1;

2:

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

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

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

end.

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

Условный оператор (If..then..else)

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

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

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

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

Program lab2v8;

Uses Crt ;

Label 1,2 ;

Var y,x: Real; ch: Char;

begin

1:

clrscr;

textcolor (11);

Writeln (' УСЛОВНЫЙОПЕРАТОР');

Writeln ;

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

Writeln (' Дано:');

Writeln (' Дана система уравнений для вычисления значения y');

Writeln (' при котором x требуется ввести с клавиатуры.');

Writeln ;