Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2010, 23:16   #1
Chibi
Пользователь
 
Регистрация: 19.11.2010
Сообщений: 17
По умолчанию Из н натуральных чисел вычеслить суму и произведение(Pascal)

помогите решить задачи,пожалуйста.
если ещё хоть как-то объясните от куда что берётся в решении будет просто замечательно.
очень нужна помощь, т.к. самая в программировании ноль..
Буду очень благодарна за помощь

1.даны натуральные число n ,действительные числа а1,....аn. вычислить суму и произведение елементов от а1 до аn



2.дано натуральное число n , получить последовательность а1,....аn, где при i=1, 2,......,n значение равно 2^i/i!

спасибо заранее
Chibi вне форума Ответить с цитированием
Старый 20.11.2010, 00:53   #2
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

на какую тему задания?
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 20.11.2010, 01:05   #3
Chibi
Пользователь
 
Регистрация: 19.11.2010
Сообщений: 17
По умолчанию

пошаговый ввод данных и вывод результатов
Chibi вне форума Ответить с цитированием
Старый 20.11.2010, 01:20   #4
Ybn2
Форумчанин
 
Регистрация: 18.11.2010
Сообщений: 183
По умолчанию

Цитата:
Сообщение от Chibi Посмотреть сообщение
1.даны натуральные число n ,действительные числа а1,....аn. вычислить суму и произведение елементов от а1 до аn

2.дано натуральное число n , получить последовательность а1,....аn, где при i=1, 2,......,n значение равно 2^i/i!

спасибо заранее
Задача 1.
Код:
Program Zadacha1;
const n=10;{количество чисел n = 10}
Var
   a:array [1..n] of real;
   i,sum,pr:integer;
Begin
{Вводим числа}
  For i:=1 to n do 
   Begin
     Write ('Введите ',i,'элемент: ');
     ReadLn (a[i]);
   End;
{вычисляем сумму sum и произведение pr}
  sum;=0; pr:=1;
  For i:=1 to n do
    Begin
       sum:=sum+a[i];
       pr:=pr*a[i];
    end;
  WriteLn ('Сумма чисел равна: ',sum);
  WriteLn ('Произведение равно: ',pr);
  ReadLn;
end.
Должно работать, может где то с лексикой ошибся.

Цитата:
Сообщение от Chibi Посмотреть сообщение
2.дано натуральное число n , получить последовательность а1,....аn, где при i=1, 2,......,n значение равно 2^i/i!
Задача 2:

Код:
Program Zadacha2;
Var
   i,n:integer;
Function fact (n:integer):integer; {Функция вычисления фактериала}
Var i:integer;
Begin
  Fact:=1;
  For i:=1 to n do Fact:=Fact*i;
end;
Begin
   Write ('Введите n: ');
   ReadLn (n);
   WriteLn ('Последовательность An=2^(i/i!): ');
    For  i:=1 to n do
      WriteLn ('A',i,' = ',Exp(i/Fact(i)*ln(2)); {Вычисление степени}
   ReadLn;
end.

Последний раз редактировалось Stilet; 20.11.2010 в 17:20.
Ybn2 вне форума Ответить с цитированием
Старый 20.11.2010, 01:35   #5
Chibi
Пользователь
 
Регистрация: 19.11.2010
Сообщений: 17
По умолчанию

спасибо большое
Chibi вне форума Ответить с цитированием
Старый 20.11.2010, 02:08   #6
Ybn2
Форумчанин
 
Регистрация: 18.11.2010
Сообщений: 183
По умолчанию

Цитата:
Сообщение от Chibi Посмотреть сообщение
спасибо большое
Я писал не проверяя, все правильно? Если будут еще вопросы пишите мне на маил: planetdigits@mail.ru
Ybn2 вне форума Ответить с цитированием
Старый 21.11.2010, 01:00   #7
Chibi
Пользователь
 
Регистрация: 19.11.2010
Сообщений: 17
По умолчанию

Я ещё если честно не проверяла работает ли программа, ну с ошибками я думаю разберусь если будут, мне главное есть в чём разбираться, сама то не понимаю как писать эти задачи)
спасибо ещё раз за помощь)
думаю напишу на мэил,т.к. задания ещё не все решила и застряла окончательно)
Chibi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нахождение натуральных чисел neomax38 Помощь студентам 1 28.10.2010 09:33
Вычеслить произведение элементов с парными индексами заданых массивов D(18),E(14),G(15),и вывести их отде AndrewPl Помощь студентам 9 14.05.2010 09:50
Подсчёт натуральных чисел. GGman Microsoft Office Excel 1 05.05.2009 15:08
Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей NoUserName Помощь студентам 3 01.03.2009 18:10
Последовательность натуральных чисел 777UFO777 Общие вопросы Delphi 23 03.12.2008 20:42