Задали по информатике: Найти сумму и произведение чисел от 1,2... до N.Заранее спасибо! :D

Паскаль? Зачем вообще это нужно?

Меня всегда подобное убивало в любых учебных заведениях. Ничего не рассказывают про машинный код, языки программирования, что такое трансляция, интерпретация и компиляция, ни слова о уровнях языков, о том какой язык на каком основан.

Вот сразу тупо - есть делфи, есть паскаль, пишите на нем всякую х#*ню.

Нужно, не нужно, все равно пихают. Что за учебные программы такие?!

Саня как всегда прав, только подмечу RAD XE в нынешней форме мощьный инструмент...

Автор вот тебе логика писать на устаревшем синтаксисе не охото и под рукой проверялки нету, да еще и мороки с модулями которыми в вин подцепить надо да ну на...., ты хоть скажи где исполняться твоя фигня будет в учебном паскале под винду или досе или турбопаскале?

[code pascal]var
n,i: integer; (здесь 2 переменные для цикла for и для числа что введет польз)
summ,fact: double; (тут 2 переменные под факториал и сумму конечный результат)
begin
writeln('введите число для подсчета факториала n!:='); //ну тут вывод строки в консоль
readln(strtoint(n)); //тут читаем введенное значение пользователя нужно было бы проверить не ввел ли он нечто другое помимо цифр ну да ладно
i,summ:= 0; // ну чтоб наверняка у нас по нулям были переменные малоли залупим подсчет
fact:=1; // тут для переменной факториала ставим 1 вместо 0 т.к. при умнажении на нуль будет НОЛЬ  :)

// ну собственно сама структура подсчета не пинать за арифметику давно уже на калькуляторе считаю.
for i=1 to n /// т.е. переменная i будет равняться от 1,2,3, n раз которые ввел пользователь
   begin
     //тут мы и делаем то что учитель прописал складываем n n-раз и перемножаем
     summ := summ+n;
     fact:=fact*n
   end

//выводим подсчитанный результат пользователю
writeln('факториал введенного числа n='+fact);
writeln('сумма последовательности чисел из n='+summ);
пауза в консоле не помню... ну тот же readln();
end[/code]
Подкоректируй код переведи на чистый ПАСКАЛЬ  ;D загони в проект коменты в {такой вот вид} ибо там они так пишутся... дальше лень 

Mr.Freeman 2011 записан в 05.10.2011 :: 22:06:10:

кому простейшая,а кому нет

Иди на завод тогда работай ;D

@ Gradar
да уж каметы писались походу дольше проги:),
за  summ := summ+n; в цикле я бы сразу ставил ДВА:) ну за каменты фиг сним 3-:)

я бы так вписал:
Code:

program zaebiz; var n: integer; function fact(n : integer) : longint; begin   if n <= 1 then     fact := 1   else     fact := n * fact(n - 1); end; begin write('n?:'); readln(n); writeln('summ: ', n*(n+1)/2); writeln('fact: ', fact(n)); end.

должно работать, ну на небольших значениях n точно, на больших с факториалом могут быть траблы, если оценку получишь отпиши:)

FiN записан в 06.10.2011 :: 22:50:46:

program zaebiz;

:D

записан в 06.10.2011 :: 20:32:08:

Паскаль? Зачем вообще это нужно? Вот сразу тупо - есть делфи, есть паскаль, пишите на нем всякую х#*ню. Нужно, не нужно, все равно пихают. Что за учебные программы такие?!

за это сразу 0,  какая разница на чем писать такие задачи - на паскале си или еще чем... учили паскаль описывают алгоритм на паскале - никаких проблем:)

Alexey записан в 06.10.2011 :: 22:45:17:

Иди на завод тогда работай ;D

Дурачёк чё сказать,паскаль делако не самая простая вещь в мире.Давай щас все кто математику и паскаль не знают уйдут на завод? больше 70% москвы нихрена не знают,одна коррупция и в итоге у всех дипломы и аттестаты ;)

Mr.Freeman 2011 записан в 07.10.2011 :: 14:43:58:

Дурачёк чё

За это можно и по тыкве получить :)

Вова
Думаю писал бы ты коменты он не черта не понял, а так хоть что то....

Зато механика моего кода понятная и простая до безобразия, тут не на эстетику компактность и правильность, а на факт работы ибо осваивать рекурсивный вызов функции думаю отдельная тема, ну явно не новечку..., а в итоге он слижет код и ТЫ получишь 5ку

Про коменты в точку писались дольше.

В интернете все такие смелые что капец ;D
Смотри забанят, как уроки делать то будешь ;D