|
| 11 января 2008, 23:14 |  |
|
| LV7 |
HP | |
MP | | Стаж: 15 лет |
Постов: 1025 |
|
Last Romantic а я сам в них не совсем въезжаю. Я там полное условие как было написано написал. Верхнюю вроде решил, а вот нижнюю вторую на картинке не как!
Смотрю в конспекте и этот пример попадает под темы Процедуры и Функция написано минимум! Вот например есть такой отрывок с примера
var
a,b,c,d,e,f,g,h,y:real:
function summa(x1,y1:real):real;
begin
readln(a,b,c,d,e,f,g,h);
y:=summa(a,b)/summa(c,d),summa(e,f)/summa(g,h);
readln(y)
end.
Вот еще чел подсказал часть программы
function integral1(a,b:real):real;
var n,k,sum:real;
begin
n:=2;
for k:=0 to n-1 do sum:=sum+3*(a+k*(b-a)/n)-sin(2*(a+k*(b-a)/n));
integral1:=sum*(b-a)/n;
end;
function integral2(a,b:real):real;
сюда скопировать тело integral1 и заменить функционал
begin
writeln(integral1(pi,2*pi)-integral2(0,pi));
end.
набрал и выдает ошибку связаную с for/
Исправлено: nirvana, 11 января 2008, 23:45С каждым годом я убеждаюсь, что и у друзей бывает срок годности! |
|
|
