Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Зациклить выход из программы https://www.cyberforum.ru/ turbo-pascal/ thread2202847.html
Как добавить в программу цикл так чтобы она не завершилась а заново начинала работу а чтобы выйти из программы нужно использовать какую-либо служебную кнопку.
Найти корни уравнения метод половинного деления Turbo Pascal
Метод половинного деления Дано: x^5−x−0.2=0, x ∈ . Для выполнения этого задания необходимо найти один корень транс- цендентного уравнения f(x) = 0 предложенным методом на указанном промежутке....
Нахождение интеграла Turbo Pascal
Вычислить определенный интеграл от функции f(x) на промежутке ме- тодом прямоугольников. f(x) = 4sin x cos x, a = 0, b = 1, число разбиений n = 10; 40; 160; 640. F(x) = sin2x – cos2x ...
Turbo Pascal Решение одномерного массива "С" вводится с клавиатуры, составить с помощью генератора случайных чисел одномерный массив из эн целых чисел в диапазоне от нуля до бэ. https://www.cyberforum.ru/ turbo-pascal/ thread2202523.html
Turbo Pascal Составьте программу, которая строит таблицу значений функции https://www.cyberforum.ru/ turbo-pascal/ thread2202500.html
Составьте программу, которая строит таблицу значений функции x3+5*x2+x-10*sin(5*x)-1. Количество строк в таблице n, начальное значение аргумента и шаг изменения аргумента step вводятся...
Turbo Pascal Для челночной сортировки определить количество сравнений и обменов
Челночная сортировка. Размерность сортируемого массива: n = 10, n = 50, n = 250. Для указанного в задании алгоритма сортировки необходимо составить программу сорти- ровки целочисленного...
Turbo Pascal Начертить схему алгоритма
начертить схему алгоритма для данной процедуры procedure conclusion(a: amas; n: integer); var i: integer; begin writeln('Данная программа из последовательности находит порядковый номер...
Turbo Pascal Получить все совершенные числа, меньшие n Нашел программу к моей задаче , но не могу понять что там написано. Условия:Натуральное число называется совершенным, если она равно сумме всех своих делителей,за исключением себя самого. ... https://www.cyberforum.ru/ turbo-pascal/ thread2202346.html
Turbo Pascal Программа для решения уравнения https://www.cyberforum.ru/ turbo-pascal/ thread2202085.html
Нужно написать программу, чтобы решала уравнение y=\begin{cases} 3x^5+a & \text{, if } x\,<\,-8 \\\\ a^2 & \text{, if } -8\leq x\,<\,a \\\\ \sqrt{\frac{x^2+ax}{5.8+x}} & \text{, if } x\geq a...
Turbo Pascal Заменить все пробелы символом "#" Введите текст (не менее 10 слов). Подсчитать количество слов и количество пробелов в тексте. Заменить все пробелы символом "#". Распечатать полученный текст. https://www.cyberforum.ru/ turbo-pascal/ thread2201915.html
1742 / 1335 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
28.02.2018, 16:42 0

Проверка правильности ввода чисел

28.02.2018, 16:42. Показов 1000. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Valsorim как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var a, b: integer;
begin
  a := 0; b := 0;
  while (a <= 0) or (a mod 3 <> 0) or (b <= 0) or (b <= 3) or (b >= 30) do begin
    write('a = '); read(a);
    write('b = '); read(b);
  end;
end.


Вернуться к обсуждению:
Проверка правильности ввода чисел
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2018, 16:42

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Проверка правильности конструкции оператора if - Then
Программа должна проверять правильно ли пользователь ввел конструкцию условного оператора if ....

Проверка правильности скобочных конструкций (блок-схема)
дан текстовый файл, содержащий программу на некотором языке, в котором один оператор занимает...

Численная проверка правильности разложения в ряд заданной функции
составить программу для численной проверки правильности расположения в ряд заданной функции, для...

Проверка правильности расстановки нескольких видов скобок. Решение на стеке. Стек построен на динамическом однонаправленном списке.
Вот смотрите ,надо проверить если заданная строка символов правильным выражение , в которой...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.