Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование на Pascal / Delphi / Лабораторная работа1 / Lab_7(1)
.pas program lab_7;
uses crt;
var
s,t,sum:real;
function f(a,b,c:real):real;
begin
f:=(2*a-b-sin(c))/(5+abs(c));
end;
begin
clrscr;
writeln('ђҐи Ґ¬ § ¤ зг б Ї®¬®ймо дгЄжЁЁ');
write('‚ўҐ¤ЁвҐ "t"- ');
read(t);
write('‚ўҐ¤ЁвҐ "s"- ');
read(s);
sum:=f(t,-2*s,1.17)+f(2.2,t,s-t);
writeln('ЋвўҐв',sum);
readln;
readln;
end.
uses crt;
var
s,t,sum:real;
function f(a,b,c:real):real;
begin
f:=(2*a-b-sin(c))/(5+abs(c));
end;
begin
clrscr;
writeln('ђҐи Ґ¬ § ¤ зг б Ї®¬®ймо дгЄжЁЁ');
write('‚ўҐ¤ЁвҐ "t"- ');
read(t);
write('‚ўҐ¤ЁвҐ "s"- ');
read(s);
sum:=f(t,-2*s,1.17)+f(2.2,t,s-t);
writeln('ЋвўҐв',sum);
readln;
readln;
end.
Соседние файлы в папке Лабораторная работа1