Форум программистов, компьютерный форум, киберфорум
Наши страницы

Как осуществить бесконечный ввод - 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. Интервал и шаг задать таким образом, чтобы проверить все ветви программы.... подробнее

Показать сообщение отдельно
Puporev
Модератор
52998 / 40809 / 14059
Регистрация: 18.05.2008
Сообщений: 94,906
30.12.2013, 15:24
Например так.
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
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru