10- 1_Вычислительная практика / 10_1

uses CRT,DOS;
const s=60;
var c,d1,f,x,v,v1,t1,t2,R,D,P:real;
num,i:byte;
begin
ClrScr;
write('‚ўҐ¤ЁвҐ ­®¬Ґа § ¤ ­Ёп: ');
readln(num);
If num=1 then
begin
writeln('‚лзЁб«Ёвм §­ зҐ­ЁҐ ўла ¦Ґ­Ёп f(x)=exp(sin(x)^1/3)+abs(x-5*c*d) ');
write('‚ўҐ¤ЁвҐ Є®­бв ­вл c Ё d: ');
readln(c,d1);
write('‚ўҐ¤ЁвҐ x: ');
readln(x);
If sin(x)>0 then
f:=exp(exp(1/3*ln(sin(x))))+abs(x-5*c*d1)
else f:=exp(-exp(1/3*ln(abs(sin(x)))))+abs(x-5*c*d1);
writeln('f(x) = ',f:5:3);
end;
If num=2 then
begin
writeln('‘ ¬®«Ґв «ҐвЁв Ё§ Їг­Єв  Ђ ў Їг­Єв ‚. ђ ббв®п­ЁҐ ¬Ґ¦¤г Їг­Єв ¬Ё ',s,'.Ќ ©вЁ');
writeln('ўаҐ¬п Ї®«Ґв  ЇаЁ § ¤ ­­®© бЄ®а®бвЁ б ¬®«Ґв  б гзҐв®¬ ўбваҐз­®Ј® ўҐва  Ё ЎҐ§.');
repeat
write('‚ўҐ¤ЁвҐ бЄ®а®бвм б ¬®«Ґв : ');
readln(v);
until v>=0;
repeat
write('‚ўҐ¤ЁвҐ бЄ®а®бвм ўҐва : ');
readln(v1);
until v1<v;
t1:=s/(v-v1);
writeln('‚аҐ¬п Ї®«Ґв  ЇаЁ ўбваҐз­®¬ ўҐвॠࠢ­® ',t1:5:3);
t2:=s/v;
writeln('‚аҐ¬п Ї®«Ґв  ЎҐ§ ўбваҐз­®Ј® ўҐва  а ў­® ',t2:5:3);
end;
if num=3 then
begin
writeln('‚лзЁб«Ёвм бв®Ё¬®бвм ®Ў®а㤮ў ­Ёп ¬ бвҐабЄ®© R(n) зҐаҐ§ n «Ґв Ї®б«Ґ');
writeln('ўў®¤  ў нЄбЇ«г в жЁо б®Ј« б­® ᮮ⭮襭Ёо R(n)=R(n-1)(1-P/100)+D ');
write('‚ўҐ¤ЁвҐ ЇҐаў®­ з «м­го бв®Ё¬®бвм ¬ бвҐабЄ®© R(0): ');
readln(R);
if R<0 then
while not (R>=0) do
begin
write('‚Ґ«ЁзЁ­  бв®Ё¬®бвЁ ¤®«¦­  Ўлвм Ї®«®¦ЁвҐ«м­л¬ зЁб«®¬. Џ®Їа®Ўг©вҐ ҐйҐ а §: ');
readln(R);
end;
write('‚ўҐ¤ЁвҐ б㬬㠥¦ҐЈ®¤­ле § ва в ­  ­®ў®Ґ ®Ў®а㤮ў ­ЁҐ D: ');
readln(D);
if D<0 then
while not (D>=0) do
begin
write('–Ґ­  ­Ґ ¬®¦Ґв Ўлвм ®ваЁж вҐ«м­л¬ зЁб«®¬. Џ®Їа®Ўг©вҐ ҐйҐ а §: ');
readln(D);
end;
write('‚ўҐ¤ЁвҐ ўҐ«ЁзЁ­г  ¬®авЁ§ жЁЁ P: ');
readln(P);
writeln('‘в®Ё¬®бвм ®Ў®а㤮ў ­Ёп ў­ з «Ґ а ў­  R(0))= ',R:3:2);
For i:=1 to 10 do
begin
R:=R*(1-P/100)+D;
writeln('‘в®Ё¬®бвм ®Ў®а㤮ў ­Ёп ­  ',i,' Ј®¤ а ў­  R(',i,')= ',R:3:2);
end;
end;
readln;
end.
Ђа Ї®ў Ќ.ћ. Ј.’­м.