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

WriteLn ('Результат вычисления y =', y :6:2, ' при x = ', x :6:2);

x := x+dx;

End;

Writeln ;

textcolor (LightRed);

Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 Then goto 2;

goto 1;

2:

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

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

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

end.

алгоритм программа формула тестирование

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

«Цикл с постусловием» (Repeat..until)

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

Задание 1. Написать алгоритм и программу вычисления функции у(х) из лабораторной работы №2 в N равномерно распределенных в диапазоне Х1<х<Х2 точках, таблица 6. Результаты сформировать в виде таблицы. Произвести тестирование.

Задание 2. Произвести пошаговое выполнение программы, наблюдая переменные х, у, n

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

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

Programlab4v8;

Uses

Crt ;

Label