Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal составьте программу подсчета простых трехзначных чисел составьте программу подсчета простых трехзначных чисел https://www.cyberforum.ru/ turbo-pascal/ thread709508.html	Выводить латинские буквы в случайном порядке в случайной области экрана Turbo Pascal Написать программу которая б выводила латинские символы в довольном порядке , случайным цветом в области всего крана.
Turbo Pascal Постчитать количество слов в предложении 1. Постчитать количество слов в предложении : "Язык программирования высокого уровня Pascal". Каждое слово одделено пробелом. 2. Удалить и зэтого предложения пробелы и выдать на экран новое предложение. https://www.cyberforum.ru/ turbo-pascal/ thread709480.html	Turbo Pascal Максимальное произведение, задача https://www.cyberforum.ru/ turbo-pascal/ thread709457.html Заданное число N может быть представлено как сумма некоторого набора попарно несовпадающих натуральных чисел. Среди множества наборов найти такой набор чисел, сумма которых равна N, а их произведение P максимально. Входной файл содержит целое число N (3<=N<=100) Выходной файл содержит одно число - искомое произведение p Тест: Входной файл: 12 Выходной файл: 60 Делать можно и без файлов,...
Массив. Найти сумму и количество элементов, предшествующих первому нулевому элементу. Turbo Pascal Дан массив А(10).Найти сумму и количество элементов, предшествующих первому нулевому элементу.помогите пожалуйста!	Turbo Pascal задача на параболу Определить направление ветвей параболы y=ax*х+by+c. Найти точки пересечения параболы с осью OX. a, b, y, c, OX, вводится с клавиатуры! https://www.cyberforum.ru/ turbo-pascal/ thread709364.html
Turbo Pascal написание функции https://www.cyberforum.ru/ turbo-pascal/ thread709347.html как записать эту функцию в паскале http://s019.***********/i602/1211/07/498c83e3fac5.png	Составить программу движения стрелки по кругу Turbo Pascal Доброго, времени суток. Помогите пожалуйста составить программу движения стрелки по окружности (что-то вроде часов, но на самом простом уровне). Заранее, спасибо.
Turbo Pascal Быстрая сортировка https://www.cyberforum.ru/ turbo-pascal/ thread709327.html Прошу помощи !!! Дана целочисленная квадратная матрица размером n x n. Используя быструю сортировку, упорядочить значения так, чтобы a11<=a12<=<=a1n<=a21<=a22<=a2n<=an1<=an2<=ann. Заранее спасибо !!! Добавлено через 1 час 35 минут ..... Добавлено через 1 час 3 минуты	Turbo Pascal Работа с временными файлами Подготовить анкетные данные своих ближайших родственников. Оформить сведения о каждом родственнике в виде записи, в которой определены следующие поля : 1.Фамилия, имя , отчество. 2.Степень родства (мать, сестра и т.д.) 3.Город проживания. 4.Год рождения. 5.Признак – работает или нет. Организовать ввод данных с терминала и записать их во временный файл. Вычислить в программе средний возраст... https://www.cyberforum.ru/ turbo-pascal/ thread709288.html
Turbo Pascal Поменять символы местами Дано: A:='+' B:='-' После преобразования поменять их местами,должно получиться: A:='=' B:='+'	Turbo Pascal Найти сумму членов последовательности с заданной точностью eps https://www.cyberforum.ru/ turbo-pascal/ thread709185.html найти сумму членов последовательности с заданной точностью eps итерационный цикл

Bringoff

СуперМодулятор

134 / 134 / 48

Регистрация: 03.11.2012

Сообщений: 974

Считывать числа, пока не нажмут клавишу ввода - Turbo Pascal - Ответ 3756287

26.11.2012, 17:11. Показов 2217. Ответов 1

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше 20000000. Всего последовательность состоит не более чем из 40 чисел. Последовательность завершается признаком конца ввода. На стандартный поток вывода напечатайте сумму этих чисел.

Не пойму, почему этот код не пашет

Pascal

program AB;
 uses crt;
 var
  a,b:integer;
  ch:char;
   begin
    a:=0;
    b:=0;
    while (ReadKey<>#13) do
     begin
      Read(b);
      a:=a+b;
    end;
    Writeln(a);
   end.

Добавлено через 4 часа 53 минуты
Эмм, так я жду ответа на поставленный мною вопрос...

Вернуться к обсуждению:
Считывать числа, пока не нажмут клавишу ввода Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.11.2012, 17:11

Готовые ответы и решения:

Считывать с клавиатуры числа до тех пор пока не будет введено два числа равных 1.
Программа должно считывать с клавиатуры числа до тех пор пока не будет введено два числа равных 1. ...

Считывать данные с клавиатуры, пока не будет введен 0
Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не...

Считывать данные пока не встретится символ '|' обозначающий конец ввода
Нужно считать данные пока не встретится символ '|' обозначающий конец ввода. double val;...

Подпрограмма: Вводить числа до тех пор пока не будет введен 0, после ввода 0, вывести все введенные числа
Вводить числа до тех пор пока не будет введен 0. Если будет введен 0, то вывести все введенные...

	26.11.2012, 17:11

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.11.2012, 17:11

Помогаю со студенческими работами здесь

Вводить числа в диалоге с пользователем (до тех пор, пока он не откажется от ввода)
Используя в программе цикл while, Вводить числа в диалоге с пользователем (до тех пор, пока он...

Выполнение цикла пока не нажмешь клавишу
Приветствую! SOS-Вопрос заключается в том, чтобы контролировать выполнение цикла нажатием...

Считывать последовательность пока каждое последующее число больше предыдущего
Помогите пожалуйста написать в паскале задачки... 3 задачи 1)программа должна считывать с...

Как считывать слова/цифры пока не закончился ввод пользователем
Как считывать слова/цифры пока не закончился ввод пользователем

Наверх