Задача с процедурой. - Форум
Суббота, 03.12.2016, 22:42
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача с процедурой. (процедура)
Задача с процедурой.
†[W]if[e]†™Дата: Понедельник, 25.04.2011, 15:08 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 9
[ 0 ]
Статус: Offline
Используя процедуру, вычислить знаечние выражения
y=a1x^4+a2x^3+a3x^2+a4x+a5

Решите пожалуйсто надо только сегодня уже....

Добавлено (25.04.2011, 15:08)
---------------------------------------------
a1=7;a2=0;a3=2;a4=1;a5=8;x=3;

 
KOT_B_MEIIIKEДата: Понедельник, 25.04.2011, 20:10 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program uravn;
var i,step:integer;a:array [0..100] of integer;y,x,k:real;
procedure stepen (var x:real;step:integer);
var i:integer;xn:real;

begin
i:=1;xn:=1;
if step = 0 then xn:=1
else for i:=1 to step do xn:=xn*x;
x:=xn;
end;
begin
writeln ('Vvedite stepen uravneniya:');read(step);
writeln('Vvedite koefficienti (so starshego do nulevogo):');
for i:=step downto 0 do read (a[i]);
writeln ('Vvedite x:');read(x);
writeln;
y:=0;
for i:=0 to step do
begin
k:=x;
stepen(k,i);
y:=y+a[i]*k
end;
writeln ('y=',y:2:2);
end.

Добавлено (25.04.2011, 20:10)
---------------------------------------------
нулевой коээфициент это имелось в виду коэффициент при х в нулевой степени.

 
†[W]if[e]†™Дата: Вторник, 26.04.2011, 07:53 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 9
[ 0 ]
Статус: Offline
KOT_B_MEIIIKE, Спасибо огромное!!!!! выручил!
 
KOT_B_MEIIIKEДата: Вторник, 26.04.2011, 21:26 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
пожалуйста!
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача с процедурой. (процедура)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016