2 Оператор розгалуження і вибору. Цикл з параметром
Вариант №12
program nomer2;
uses CRT;
label m1;
var u,x,z,x1,x2,Xmax,y,a,b,c:real;
k,i:integer;
begin
m1: Clrscr;
textcolor(3);
gotoXY(35,1);
writeln('Практическое задание №2');
gotoxy(20,2);
Writeln('Оператор ветвления и выбора. Цикл с параметром.');
GOTOXY(35,3);
writeln('Сделайте выбор: ');
GOTOXY(30,4);
Writeln('1 - Задача №1');
GOTOXY(30,5);
writeln('2 - Задача №2');
GOTOXY(30,6);
writeln('3 - Выход');
read(k);
case k of
1:
begin
gotoxy(30,7);
textcolor(3);
writeln('Задача №1');
writeln('Введите a,b,c: ');
readln(a,b,c);
x1:=(a-2*b)/c;
x2:=ln(abs(c))/(a*b*c);
writeln('Найдём все Х: ');
textcolor(5);
writeln('********************************');
writeln('** X1 ** X2 **');
writeln('********************************');
writeln('** ',x1:7:4,' ** ',x2:7:5,' **');
writeln('********************************');
If x1>x2 then
Xmax:=x1
Else
Xmax:=x2;
textcolor(3);
writeln('Найдём Х максимальный: ');
textcolor(5);
writeln('*****************');
writeln('** Xmax **');
writeln('*****************');
writeln('** ',xmax:7:4,' **');
writeln('*****************');
if a<>c then
Y:=13.8-a
Else
y:=(a-b)*c;
textcolor(3);
writeln('Вычисляем Y: ');
textcolor(5);
writeln('*****************');
writeln('** Y **');
writeln('*****************');
writeln('** ',y:3:2,' **');
writeln('*****************');
Z:=Xmax/exp(3*ln(y));
textcolor(3);
writeln('Вычисляем функцию: ');
textcolor(5);
writeln('*****************');
writeln('** Z **');
writeln('*****************');
writeln('** ',Z:7:5,' **');
writeln('*****************');
readln;
textcolor(2);
Writeln('Выполнил студент:');
writeln('Сикорский Эдуард Александрович');
writeln('Группа РП-09-1/9 (28)');
readln;
goto m1;
end;
2:
begin
GOTOXY(30,7);
textcolor(3);
Writeln('Задача №2');
writeln('Введите x');
readln(x);
If x=0 then
begin
Writeln('Решаем уравнение по X=0');
y:=0;
for i:=1 to 5 do
begin
u:=(i+(i+5));
y:=y+u;
end;
end
else If x<0 then
begin
writeln('Решаем по уравнению Х<0') ;
y:=x-8
end
else
writeln('Решаем по уравнению X>0');
y:=20*(X*X*X)+4;
textcolor(5);
writeln('*****************');
writeln('** Y **');
writeln('*****************');
writeln('** ',Y:7:2,' **');
writeln('*****************');
readln;
textcolor(2);
Writeln('Выполнил студент:');
writeln('Сикорский Эдуард Александрович');
writeln('Группа РП-09-1/9 (28)');
readln;
goto m1;
end;
3:
else goto m1;
end;
end.
3. Оператори циклу
Вариант №12
Провести табуляцію функції X – SIN(X) на відрізку [0, П/2] в 10 крапках. Символ - *
program nomer3;
uses CRT;
label m1;
var E,u,s,a,b,x,h,rez:real;
k,i,n:integer;
begin
m1: CLRSCR;
textcolor(3);
gotoxy(35,1);
Writeln('Практичевское задание №3');
gotoxy(35,2);
writeln('Операторы цикла.');
gotoxy(35,3);
writeln('Сделайте выбор: ');
gotoxy(30,4);
Writeln('1 - табуляция');
gotoxy(30,5);
writeln('2 - задача с предусловием');
gotoxy(30,6);
writeln('3 - задача с постусловием');
gotoxy(30,7);
writeln('4 - Выход');
read(k);
case k of
1:
begin
gotoxy(30,8);
Writeln('Задача табуляции: ');
writeln('Введите количество точек: ');
readln(n);
a:=0;
b:=Pi/2;
h:=(b-a)/(n-1);
x:=a;
textcolor(5);
writeln('********************************');
writeln('** X ** Rez **');
writeln('********************************');
for i:=1 to n do
begin
Rez:=x-sin(x);
writeln('** ',i:2,' ** ',rez:5:3,' **');
x:=x+1;
end;
writeln('********************************');
readln;
textcolor(2);
Writeln('Выполнил студент:');
writeln('Сикорский Эдуард Александрович');
writeln('Группа РП-09-1/9 (28)');
readln;
goto m1;
end;
2:
begin
textcolor(3);
gotoxy(30,8);
writeln('Задача с предусловием: ');
writeln('Введите точность Е: ');
readln(e);
s:=0;
i:=1;
u:=(i+1)/(sqr(i)*ln(abs(i+1)));
textcolor(5);
writeln('*************************************');
writeln('** i ** u ** S **');
writeln('*************************************');
while u>e do
begin
s:=s+u;
writeln('** ',i:3,' ** ',u:6:4,' ** ',s:8:5,' **');
i:=i+1;
u:=(i+1)/(sqr(i)*ln(abs(i+1)));
end;
writeln('**************************************');
readln;
textcolor(2);
Writeln('Выполнил студент:');
writeln('Сикорский Эдуард Александрович');
writeln('Группа РП-09-1/9 (28)');
readln;
goto m1;
end;
3:
begin
gotoxy(30,8);
textcolor(3);
Writeln('Задача с постусловием: ');
Writeln('Введите точность E: ');
readln(E);
s:=0;
i:=1;
textcolor(5);
writeln('*************************************');
writeln('** i ** u ** S **');
writeln('*************************************');
repeat
u:=(i+1)/(sqr(i)*ln(abs(i+1)));
s:=s+u;
i:=i+1;
writeln('** ',i:3,' ** ',u:6:4,' ** ',s:8:5,' **');
Until u<E;
writeln('*************************************');
readln;
textcolor(2);
Writeln('Выполнил студент:');
writeln('Сикорский Эдуард Александрович');
writeln('Группа РП-09-1/9 (28)');
readln;
goto m1;
end;
4:
else goto m1;
end;
end.