Массив - Форум
Воскресенье, 04.12.2016, 17:16
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Массив
Массив
amoureseДата: Четверг, 03.06.2010, 17:24 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
помогите пожалуйста, мне написали программу, куда ее не забью, везде выдает ошибку.завтра надо сдать.скажите, правильно она написана, может это у меня глюк какой...
вот задание http://i077.radikal.ru/1006/6a/ea7473ee1ea7.jpg
и сама программа

program MAS;
const n=10;
type massiv=array[1..n]of Extended ;
var a:massiv;
i,k: integer;
x,s,st:Extended ;
f1,f2:int64;
begin
write('Vvedite X:');
readln(x);
s:=0;
for k:=1 to n do
begin
st:=x;
for i:=1 to k do
st:=st*x;
f1:=1;
f2:=1;
for i:=2 to 2*k+1 do
begin
f1:=f1*i;
if i=k then f2:=f1;
end;
s:=s+st/f1 - (sin(k*x)/cos(k*x))/f2;
a[k]:=s;
end;
writeln('Znachenia massiva:');
for k:=1 to n do
writeln(a[k]:2:5,' ');
readln;
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Массив
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016