Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,314
30.12.2013, 15:24

Как осуществить бесконечный ввод - Turbo Pascal

30.12.2013, 15:24. Просмотров 1211. Ответов 8
Метки (Все метки)

Например так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var k:integer;
begin
clrscr;
repeat
writeln('Вводите коды символов от 0 до 255, окончание ввода 0');
repeat
readln(k);
until k in [0..255];
if k>0 then writeln(chr(k));
until k=0;
end.
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.12.2013, 15:24
Готовые ответы и решения для Turbo Pascal Как осуществить бесконечный ввод:

Ошибка в коде, идет бесконечный ввод данных
program Project1; uses crt; const zodiak:array of string = ('Vodoley...

Осуществить ввод данных в массив
Ввести массив A и число P . Для каждого элемента массива вычислить функцию B=...

Осуществить ввод элементов заданного множества с клавиатуры
Осуществить ввод элементов заданного множества с клавиатуры.Определить является...

Найти стороны треугольника. Ввод данных и вывод результата осуществить с помощью файлов
Треугольник задан величинами своих углов и радиусом описанной окружности. Найти...

Множества. Осуществить ввод элементов двух множеств и проверить, принадлежат ли элементы их пересечению
осуществить ввод элементов двух заданных множеств с клавиатуры и проверить...

Как остановить бесконечный цикл?!
Написал программу, ошибся, и она запустила бесконечный цикл. На что нажать (на...

8
Как осуществить бесконечный ввод Turbo Pascal   Следующее сообщение темы 
Другие темы раздела
Turbo Pascal Написать программу, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением http://www.cyberforum.ru/turbo-pascal/thread1060688.html
Помогите пожалуйста решить задачу с помощью процедуры "Написать программу, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением."
Turbo Pascal Если сумма двух первых строк матрицы А меньше суммы элементов двух последних её строк Если сумма двух первых строк матрицы А меньше суммы элементов двух последних её строк. Изменить матрицу А, прибавив к элементам каждой строки заданные элементы х1,х2,..,х5 http://www.cyberforum.ru/turbo-pascal/thread1060648.html
Turbo Pascal Из диапазона [p,q] найти все правильные несократимые дроби
Одногруппник попросил помочь, но тут ужас просто... Задача: Из диапазона найти все правильные несократимые дроби. Подпрограмма: НОД. Решение вроде есть, но нужно сделать так, чтобы диапазон...
Определить пару наиболее удаленных друг от друга окружностей Turbo Pascal
помогите решить задачу. На плоскости задано n произвольно расположенных окружностей. Определить пару наиболее удаленных друг от друга окружностей. Исходные данные считываются из текстового файла...
Turbo Pascal Убрать апостроф после гласной http://www.cyberforum.ru/turbo-pascal/thread1060444.html
Если в средине слова после гласной стоит апостроф, то его убрать. Как это сделать? Помогите пожалуйста, заранее спасибо.
Turbo Pascal Вычислить и вывести на экран в виде таблицы значения функции, заданной графически Вычислить и вывести на экран в виде таблицы значения функции, заданной графически, на интервале от xнач до xкон с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы.... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru