Не получается составить программу используя процедуру или функцию.

@minstrel777 · Регистрация: 28.01.2010

Author24 — интернет-сервис помощи студентам

Очень нужна помощь старших в решении задачи.

Вот изображение вопроса:

05.06.2010, 01:24

Pascal

program prog_1;
uses Crt;
var
 a0,a1,a2,a3,a4,a5,a6:Real;
 x:Integer;
function p(y:Integer):Real;
Begin
  p:=a6*sqr(y)*sqr(sqr(y))+a5*y*sqr(sqr(y))+a4*sqr(sqr(y))+a3*y*sqr(y)+a2*sqr(y)+a1*y+a0;
End;
BEGIN
  write('введите а0 ');Readln(a0);
  write('введите а1 ');Readln(a1);
  write('введите а2 ');Readln(a2);
  write('введите а3');Readln(a3);
  write('введите а4 ');Readln(a4);
  write('введите а5 ');Readln(a5);
  write('введите а6 ');Readln(a6);
  x:=1;
  writeln('При x=',x,' p(x+1)-p(x)=',p(x+1)-p(x));
  x:=3;
  writeln('При x=1',x,' p(x+1)-p(x)=',p(x+1)-p(x));
  x:=4;
  writeln('При x=1',x,' p(x+1)-p(x)=',p(x+1)-p(x));
END.

@minstrel777 1 / 1 / 0 Регистрация: 28.01.2010 Сообщений: 46
		1
	Не получается составить программу используя процедуру или функцию. 04.06.2010, 23:14. Показов 1219. Ответов 1 Метки нет (Все метки) Очень нужна помощь старших в решении задачи. Вот изображение вопроса: Миниатюры 0

	05.06.2010, 01:24

Опции темы

Не получается составить программу используя процедуру или функцию.

Решение