0 / 0 / 0
Регистрация: 03.12.2011
Сообщений: 16
1

Как сделать проверку вводимых чисел через val для данной программы?

08.12.2011, 20:37. Показов 1595. Ответов 1
Метки нет (Все метки)

Вот собственно сама программа.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
var m,no: array [1..100] of integer;
    n,j,i,a,b,k: integer;
begin
write('N=');
readln(n);
write('A=');
readln(a);
write('B=');
readln(b);
j:=1;
for i:=1 to n do
    begin
    m[i]:=random(101)-50;
    write(m[i]:5);
    if (m[i]>=a) and (m[i]<=b) then
       begin
       no[j]:=i;
       inc(j);
       end;
    end;
k:=j-1;
writeln;
if k=0 then writeln('Элементы в интервале [',a,',',b,'] не обнаружены') else
begin
writeln('Найдено ',k,' элементов в интервале [',a,',',b,']');
writeln('Их порядковые номера:');
for j:=1 to k do
    write(no[j]:3);
end;
readkey
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2011, 20:37
Ответы с готовыми решениями:

Не подскажите как сделать проверку через val в данной программе?
const n=4; type m=array of integer; var a:m; i,j,p:integer; begin writeln('Введите элементы...

Как сделать проверку на число при помощи Val?
Есть программа: var x, a, y: real; begin a := 2.5; write('x = '); readln(x); ...

Как сделать проверку вводимых символов в TextBox
Как сделать проверку вводимых символов в TextBox ? Чтоб можно было вводить только числа, в том...

Выполнить проверку для задач с процедурой val
Приветствую всех. Нужно выполнить проверку для задач с процедурой val для данных задач. var ...

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
08.12.2011, 20:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
repeat
write('N=');
readln(s);
val(s,n,k);
if k<>0 then write('Это не целое число, повторите ввод.');
until k=0;
repeat
write('A=');
readln(s);
val(s,a,k);
if k<>0 then write('Это не целое число, повторите ввод.');
until k=0;
repeat
write('B=');
readln(s);
val(s,b,k);
if k<>0 then write('Это не целое число, повторите ввод.');
until k=0;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2011, 20:47

Как сделать проверку на обновление программы?
Я делаю лаунчер для программы и мне потребовалась функция, чтоб при включении программы происходила...

Сделать потоки для данной программы
Здравствуйте! Помогите пожалуйста решить задачку. 1) Итерацию, процесс вывода сделать в отдельном...

Как сделать через js проверку логина и пароля
Есть html файл, на нем форма авторизации. Как забиндить кнопку так чтобы Допустим в логине пишу...

Как реализовать обновление и проверку версии программы через интернет?
2) Как реализовать обновление и проверку версии программы через интернет? Delphi XE5


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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