|
| Euro Truck Simulator 2; Heroes of Might & Magic 3.5; |
| youtube |
|
| |
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С каждым годом я убеждаюсь, что и у друзей бывает срок годности! |
|