Var
S, X, a, b, R: Real;
C: String;
Begin
WriteLn('Chto budem vichislat');
ReadLn(C);
if C = 'O' then begin
WriteLn('Radius');
ReadLn(R);
S:= Pi*sqr(R);
end;
if C:= 'T' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
WriteLn('Vvedite 2 katet);
ReadLn(b);
S:= 1/2 * a * b;
end;
if C:= 'K' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
S:= sqr(a);
end;
WriteLn('Ploshad = ');
ReadLn(S);
end.
1. Посмотреть в корзине - может папку удалили
2. Воспользоваться поиском по всему диску, может ее переместили
1 задача) 44000*16*60*2=10Мб
а для второй задачи я использовала ту же частоту и дискретизацию.
700Мб=5872025600 бит
t=5872025600/(44000*16*2)=4170 сек= 1час 9.5 мин
Var
a,b,h,x,f:real;
begin
Write('Введите a,b,h: ');
Read(a,b,h);
x:=a;
while x<=b do
begin
f:=sqrt(x)*sqr(cos(x));
Writeln(x:5:3,f:15:8);
x:=x+h
end
end.
Тестовое решение
Введите a,b,h: 0 3 0.25
0.000 0.00000000
0.250 0.46939564
0.500 0.54457910
0.750 0.46364281
1.000 0.29192658
1.250 0.11116410
1.500 0.00612832
1.750 0.04202995
2.000 0.24491094
2.250 0.59190315
2.500 1.01482406
2.750 1.41675413
3.000 1.69755726
var
a,b,h,x,f:real;
begin
Write('Введите a,b,h: ');
Read(a,b,h);
x:=a;
repeat
f:=sqrt(x)*sqr(cos(x));
Writeln(x:5:3,f:15:8);
x:=x+h
until x>b
end.
Тестовое решение
Введите a,b,h: 0 3 0.25
0.000 0.00000000
0.250 0.46939564
0.500 0.54457910
0.750 0.46364281
1.000 0.29192658
1.250 0.11116410
1.500 0.00612832
1.750 0.04202995
2.000 0.24491094
2.250 0.59190315
2.500 1.01482406
2.750 1.41675413
3.000 1.69755726
Один первый , три последний. я думаю так. Поставьте лучшее решение.