Алгоритмизация и программирование на языке Паскаль
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?дится по формуле:);
Writeln ;
Writeln ( ln(|x+a|)*b);
Writeln ( y = -----------);
Writeln ( va^b-sin(b));
Writeln ;
textcolor (LightGreen);
Writeln (Для продолжения нажмите "Enter");
Ch := ReadKey;
If Ch<>#13 Then goto 1;
clrscr;
Writeln ( Вычисленение производится по формуле:);
Writeln ;
Writeln ( ln(|x+a|)*b);
Writeln ( y = ----------- ; a=1.1, b=4 );
Writeln ( va^b-sin(b));
Writeln ;
{-= вычисляем формулу в цикле =-}
x := -3;
While (x<=3) do
Begin
y:= ln(abs(x+a))*b/(sqrt(exp(b*ln(a)))-sin(b));
{Выводим полученный результат}
textcolor (Yellow);
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
Алгоритм выполнения:
Текст программы:
Program lab4v8;
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 ( Лабораторная работа № 4, 8-ой вариант);
Writeln ( Дано:);
Writeln ( Дана система уравнеий для вычисления значения y,);
Writeln ( /);
Writeln ( | x*(3-x) , -1<= x <0);
Writeln ( y = < 1 , 0<= x <1);
Writeln ( | tg(2x) , 1<= x <=2);
Writeln ( \);
Writeln ( При выводе значении tg(2x) - х является ГРАДУСОМ!);
Writeln ;
Writeln ( Значение x = [-1;2].);
Writeln ( Из диапазона x выбирается 10 значений, которые);
Writeln ( атоматически вычисляются, разбив промежуток на равные части.);
Writeln ;
textcolor (LightGreen);
Writeln (Выберите вариант вывода значений:);
Writeln ( 1 - вывод всех значений);
Writeln ( 2 - пошаговый режим);
Writeln ((нажмите соотв. цифру на клавиатуре));
{Проверяем выбораный режим 49="1", 50="2"}
Ch := ReadKey;
If Ch=#49 then vr:=10
else if Ch=#50 then vr := 1
else goto 1;
clrscr ;
Writeln ( Cистема уравнеий для вычисления значения y,);
Writeln ( /);
Writeln ( | x*(3-x) , -1<= x <0);
Writeln ( y = < 1 , 0<= x <1);
Writeln ( | tg(2x) , 1<= x <=2);
Writeln ( \);
if vr = 1 then
begin
textcolor (LightRed);
Writeln( для завершения нажмите "Esc", для продолжения любую клавишу);
Writeln ;
textcolor (LightGreen);
end
else Writeln ;
{-= выводим в табличном значении =-}
Writeln ( ==================);
Writeln ( = n = x = y =);
Writeln ( ==================);
dx := (X2-X1)/(N-1);
x := X1;
i := 1;
Repeat
{ на всякий случай пусть проверяет ;) }
if ((x2)) then Writeln (Значение вышло за пределы - ГЛЮК 8))
else
Begin
if x<0 then y := x*(3-x)
else if x<1 then y := 1
else y := (sin(2*x*Pi/180)/cos(2*x*Pi/180));
Writeln ( =,i:3,=,x:7:2,=,y:7:2,=);
x := x+dx;
i := i+1;
{проверка для пошагового режима}
if vr < 10 then
begin
Ch := ReadKey;
If Ch=#27 then goto 2;
end;
End
Until x>2;
Writeln ( ================== );
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
Лабораторная работа 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 ( Дано:);
Writeln ( Дана система уравнеий для вычисления значения y,);
Writeln ( /);
Writeln ( | x*(3-x) , -1<= x <0);
Writeln ( y = < 1 , 0<= x <1);
Writeln ( | tg(2x) , 1<= x <=2);
Writeln ( \);
Writeln ( При выводе значении tg(2x) - х является ГРАДУСОМ!);
Writeln ;
Writeln ( Значение x = [-1;2].);
Writeln ( Из диапазона x выбирается N значений, которые);
Writeln ( атоматически вычисляются, разбив промежуток на равные части.);
Writeln ;
textcolor (LightGreen);
Writeln (Выберите вариант вывода значений:);
Writeln ( 1 - вывод всех значений);
Writeln ( 2 - пошаговый режим);
Writeln ((нажмите соотв. цифру на клавиатуре));
{Проверяем выбораный режим 49="1", 50="2"}
Ch := ReadKey;
If Ch=#49 then vr:=10
else if Ch=#50 then vr := 1
else goto 1;
clrscr ;
Writeln ( Cистема уравнеий для вычисления значения y,);
Writeln ( /);
Writeln ( | x*(3-x) , -1<= x <0);
Writeln ( y = < 1 , 0<= x <1);
Writeln ( | tg(2x) , 1<= x <=2);