Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
tolya1095
10 / 7 / 1
Регистрация: 12.10.2012
Сообщений: 158
#1

Проверка, является ли числом

27.12.2013, 13:09. Просмотров 364. Ответов 3
Метки нет (Все метки)

Попытался сравнить код символа через множество, но забыл синтаксис.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program tablesum;
type digit= set of longint;
var dig:digit;
table:array [1..30, 1..30] of integer;
i,j,numline,numcolumn,sum:integer;
begin
dig:=[48..57];
writeln('Введите количество строк');
readln(numline);
while (ord(numline)<>dig) do
begin writeln('Неправильно введено количество строк. Повторите ввод');
readln(numline);
end;
writeln('Введите количество столбцов');
readln(numcolumn);
writeln('Заполните таблицу данными (слева направо, сверху вниз)');
for i:=1 to numline do
        for j:=1 to numcolumn do readln(table[i,j]);
for i:=1 to numline do begin writeln;
        for j:=1 to numcolumn do sum:=sum+table[i,j]; end;
writeln('Сумма элементов массива:',sum);
end.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2013, 13:09
Ответы с готовыми решениями:

Определить является ли число n простым числом
Определить является ли число n простым числом.При помощи цикла

Выяснить, является ли переменная целым числом
привет! помогите решить три задачки: 1) Составить программу проверки...

Выяснить – является ли выделенное слово числом. Если да, то каким числом (целым или вещественным)
Доброго дня всем. Помогите пожалуйста составить программу, которая выясняет –...

Является ли константа целым числом
Задача, в которой проверяется, является ли константа вида CF1 целым числом.

Выяснить, является ли слово вещественным числом
1.Дано слово. Выяснить, является ли оно вещественным числом

3
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25734 / 17288 / 6865
Регистрация: 22.10.2011
Сообщений: 30,493
Записей в блоге: 6
27.12.2013, 18:17 #2
Синтаксически правильно будет вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program tablesum;
type digit= set of byte;
var dig:digit;
table:array [1..30, 1..30] of integer;
i,j,numline,numcolumn,sum:integer;
begin
dig:=[0..9];
writeln('Введите количество строк');
readln(numline);
while not (numline in dig) do
begin writeln('Неправильно введено количество строк. Повторите ввод');
readln(numline);
end;
writeln('Введите количество столбцов');
readln(numcolumn);
writeln('Заполните таблицу данными (слева направо, сверху вниз)');
for i:=1 to numline do
        for j:=1 to numcolumn do readln(table[i,j]);
for i:=1 to numline do begin writeln;
        for j:=1 to numcolumn do sum:=sum+table[i,j]; end;
writeln('Сумма элементов массива:',sum);
end.
, но практически так лучше не делать. Есть скажем, функция InRange, позволяющая проверить нахождение значения в диапазоне...
1
Новичок
29.12.2013, 23:08
  #3

Не по теме:

Цитата Сообщение от UI Посмотреть сообщение
Есть скажем, функция InRange, позволяющая проверить нахождение значения в диапазоне...
А много ли во Free Pascal функций для ленивых?:)

0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25734 / 17288 / 6865
Регистрация: 22.10.2011
Сообщений: 30,493
Записей в блоге: 6
30.12.2013, 02:20 #4
Много, но это не для ленивых. Незачем дублировать свой "неленивый" код несколько раз, если можно для выполнения тех же действий вызвать библиотечную подпрограмму...
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2013, 02:20

Является ли введенная строка целым числом
Написать программу, которая проверяет, является ли введенная строка целым...

Проверить, является ли число N числом Фибоначчи
ДАНО ЦЕЛОЕ ЧИСЛО N(N&gt;1).Последователность чисел Фибоначчи Fk определяется...

Определить, является ли число - числом Армстронга - Pascal
Определить, является ли число - числом Армстронга. Я набрала программу, но...


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

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

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