Пример 1.
Рассчитать
Вариант 1
program A1;
var
a,b: integer;
y,x: real;
begin
writeln (‘введите а=’);
readln (a);
writeln (‘введите b=’);
readln (b);
writeln (‘введите x=’);
readln (x);
y:=a*sqr(x)+b*exp(3*ln(x));
writeln (‘y=’, y:8:3);
end.
|
program B1;
uses crt;
var
a,b: integer;
y,x: real;
begin
clrscr;
writeln(‘введите а=’); readln (a);
writeln(‘введите b=’); readln (b);
writeln(‘введите x=’); readln (x);
y:=a*sqr(x)+b*exp(3*ln(x));
writeln (‘y=’, y:8:3);
end.
| Вариант 2
<== попередня сторінка |
| |
наступна сторінка ==> |
| | | Пример 1. | Переглядів: 286
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|