Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / ELF / ELF
.PAS Program SuperDimaInterPrices_LTD;
Uses CRT;
Type
func=function(x:real):real;
var
kol,i,verh,niz:integer;
znach,x,shag:real;
{$F+}
Function s(x:real):real;
begin
s:=sqrt(x-1);
end;
{$F-}
Procedure G(f:func;verh,niz:integer;shag:real;var znach:real);
begin
znach:=0;x:=verh;
kol:=round((verh-niz)/shag);
For i:=1 to kol Do begin
znach:=znach+f(x);
x:=x+shag;
end;
end;
begin
ClrScr;
Write('‚ўҐ¤ЁвҐ ўҐаеЁ© ЇаҐ¤Ґ« Ёв. :');ReadLn(verh);
Write('‚ўҐ¤ЁвҐ Ё¦Ё© ЇаҐ¤Ґ« Ёв. :');ReadLn(niz);
Write('‚ўҐ¤ЁвҐ и Ј ЁвҐЈаЁа®ў Ёп :');Readln(shag);
G(s,verh,niz,shag,znach);
Writeln(znach:5:2);
readln;
end.
Uses CRT;
Type
func=function(x:real):real;
var
kol,i,verh,niz:integer;
znach,x,shag:real;
{$F+}
Function s(x:real):real;
begin
s:=sqrt(x-1);
end;
{$F-}
Procedure G(f:func;verh,niz:integer;shag:real;var znach:real);
begin
znach:=0;x:=verh;
kol:=round((verh-niz)/shag);
For i:=1 to kol Do begin
znach:=znach+f(x);
x:=x+shag;
end;
end;
begin
ClrScr;
Write('‚ўҐ¤ЁвҐ ўҐаеЁ© ЇаҐ¤Ґ« Ёв. :');ReadLn(verh);
Write('‚ўҐ¤ЁвҐ Ё¦Ё© ЇаҐ¤Ґ« Ёв. :');ReadLn(niz);
Write('‚ўҐ¤ЁвҐ и Ј ЁвҐЈаЁа®ў Ёп :');Readln(shag);
G(s,verh,niz,shag,znach);
Writeln(znach:5:2);
readln;
end.
Соседние файлы в папке ELF