не могу решить задачу... 8( Опции

[d00mik]

совсем недавно я начел изучать паскаль так что в нём хорошо не шарю...
а паскаль я изучаю на вашем сайте (Уроки от Дмитриева Эдуарда) Урок 8 и там есть домашние задание
" Написать программу получения числа из отдельно введенных однозначных чисел. Для этого постарайтесь придумать свой алгоритм, реализующий цикл для ввода чисел. Концом ввода должен служить нуль."
как же это делается... ?
кстати хотелось бы если у каждого домашнего задание были бы и ответы...

Сообщение отредактировано: d00mik - 16.08.2005 0:48

[kent]

Можно вот так:

Program ReceptionOfNumber;
uses Crt;
var number : Extended;
    digit,code : Integer;
    Temp,S : String;
begin
     Clrscr;{Очищаем экран}
     WriteLn('Input digits:');
     S := '';{Обнуляем строку}
     repeat{Начало цикла}
       ReadLn(digit);{Вводим цифру}
       Temp := '';{Обнуляем строку}
       str(digit,Temp);{Преобразуем число в строку}
       S := S + Temp;{Склеиваем строки}
     until digit = 0;{Если цифра равна нулю заканчиваем цикл}
     val(S,number,code);{Преобразуем строку в число}
     WriteLn('Result: ',number,';');{Выводим результат}
     ReadKey;{Ждем нажатия клавиши для выхода из программы}
end.