Знакомая принисла мне задачку - ее ребенку задали - говорит ты же связана с 1с. А задача на Паскале - а я его всколь в  ВУЗе изучала.
Кое как вспомнила и накидала. Но не могу сделать такой кусок - произведение всех чисел меньше 22. Ввод идет с клавиатуры в цикле. Проблема в том что выводить первый раз - при вводе первого числа - там же нет произведения. А как понять что оно получилось. Помогите запуталась.

Program Trunc_While
Const End_While=1000;
      GranicaProizved=22;  {ограничение для произведения}
      GranicaMinSum=10;    {Нижняя граница суммирования}
      GranicaMaxSum=50;    {верхняя граница суммирования}
Var chislo: real;
    drobChast: real;  {Переменная для дробной части}
    proizvedenie: real;  {Переменная для произведения}
    summaChisel: real;  {Переменная для суммирования}
    Tr: integer;
Begin
 summaChisel = 0; {Обнуление переменных}
 Write('Введи число');
 Readln(chislo);         {В переменную chislo вводится с клавиатуры значени}
 While chislo <> End_While do
   begin
   drobChast = chislo - Trunc(chislo); {Вычисляем дробную часть}
   if chislo < GranicaProizved then    {вычисляем произведение числа}
     proizvedenie = proizvedenie*chislo;
   if (chislo >= GranicaMinSum) and (chislo <= GranicaMaxSum) then    {вычисляем сумму чисел}
     summaChisel = summaChisel + chislo;
   Writeln('Целая часть=',Trunc(chislo));
   Writeln('Дробная часть=',drobChast);
   Writeln('Произведение чисел диапазона=',proizvedenie);
   Writeln('Сумма чисел диапазона=',summaChisel);
   Write('Введи число');
   Readln(chislo)
   End;
 Readln
End

точное описание задачи где ?

(0) Сколько постов будем угадывать условие задачи?

одно могу сказать точно: в (0) код не на паскале

proizvedenie будет непредсказуемо....

(3) на чём ?

(3) А на чем? На basic не похоже :)
(0) 42

фотографии у Ольги с каждым днём всё лучше и лучше

(3) ты это из-за каментов? Так-то похоже на пасквиль

(1)надо
а) сделать вывод целой и дробной части ввода чисел
б) останавливать ввод при вводе числа 1000
в) сделать суммирования вводимых чисел в диапазоне 10-50
г) произведение чисел которые до 22

программа даже не скопилируется, ибо переменная chislo не определена

А чо дочке лень учится?

Как не на Паскале! Код кусок из их учебника

(12) Не паникуй =)

(9))) г) s=1; for i=1 to 22 do s=s*i;

хотя бы начнём с того, что присвоение в паскале всю жизнь было :=

(10) Не паникуй =)

(9) это только на ё1с решается

(14) Вводимых чисел

(11)у ней сын.
как не определена - где раздел переменных chislo типа real

(15) это особый паскаль. Для бухгалтеров....

(12)
присвоение.

зачем буха в вузе паскаль ?

(15) Угадаю: ТС сама перепечатала текст и забыла проставить все знаки. Там и ";" местами отсутствует.

(20) не, просто закончились : у нее

(24) начались II

(23) перед end можно не ставить ;

А после?

(0) учи си

(15)Ну говорю же забыла!
Пускай :=

Да часть было перепечатано - на двоеточие не обратила внимание.
Непонятно как найти произведение - в первый раз что выводить!

(27) а после надо)
и еще точку в последнем end надо.

(29) введеное число

proizvedenie = 1; summaChisel = 0; {Обнуление переменных}

proizvedenie := 0;

(29) после summaChisel := 0; {Обнуление переменных} добавь
proizvedenie := 1.0;

(33) молодец! :)

(34)думала об этом, но если введут 0 будет же 0

(36) а про это в условии ничего нет. 0 меньше 22?

с 32 по 34 - так что ставить 0 или 1 и где точки с запятыми еще?

(36) Ну и? Все правильно

(36) а про ненулевые в (9) ничего не сказано. введут 0 - получат 0. или у вас другие законы математики? :-)

(38) ";" не надо

а ещё в паскале есть цикл until

А поняла! спасибо!

А фото специально такое нашла - прошлые все время ругали! мужчинам нравится когда обтягивает

(38) 1, на 0 плохо умножать

(43) ещё как нравится. видишь, результат на лицо (простите...)

(43) =). Мне вот нравится минимум одежды. Выложишь?

а ещё мне кажется, что вывод суммы и произведения надо вынести из цикла

да нет! там надо все в цикле!

(48) конечно в цикле, там же выход по "1000"

А вот любопытно, все советуют, а уже все знают что надо сделать в этой задаче?

(50) оленей покорми. всё было в (9)

(15) Asmody:  начнём с того, что присвоение в паскале всю жизнь было :=
А ещё раньше так было в Алголе... Вот чего помню!

ольга, может ты бы не говорила бы о том, что ты программист, а немного бы поучилась на него? программсит - это не тот, кто умеет запускать среду разработки и писать там буковки... говорю же, женщин-программистов не бывает.. уже на это 300% убеждаюсь с каждым днем.

(53) +100500 :)
Из серии - что общего между морской свинкой и девушкой программистом.