|
Вопрос # 4 150/ вопрос открыт / |
|
Здравствуйте, эксперты!
Студентка попросила помочь с лабами и поставила меня в тупик следующим заданием. С клавиатуры сформировать множество состощее из 15 чисел? Как это сделать?
 |
Вопрос задала: бумба (статус: Посетитель)
Вопрос отправлен: 13 мая 2010, 05:50
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, бумба!
ну так
var i:integer; a:array[1..15] of integer;
begin
for i:= 1 to 15 do begin
write('введите число номер ', i);
readln(a[i]);
end;
writeln('Всем спасибо, массив с 15 чисел с клавиатуры получен!');
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 13 мая 2010, 10:44
|
Ответ #2. Отвечает эксперт: Кириченко Сергей
Здравствуйте, бумба!
Наверное проблема была с присвоением числового значения множеству.
Вот так для множества:
Приложение: Переключить в обычный режим- program SetFromKeyboard;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- Type
- DigSet = Set of Byte;
- var
- i,x:byte;
- ManyDigits,OneDigit:DigSet;
- begin
- { TODO -oUser -cConsole Main : Insert code here }
- OneDigit:=[];
- ManyDigits:=[];
-
- for i:=0 to 14 do
- begin
- Readln (x);
- OneDigit:= [x];
- ManyDigits:=ManyDigits+OneDigit;
- end;
- end.
 |
Ответ отправил: Кириченко Сергей (статус: 1-ый класс)
Время отправки: 13 мая 2010, 13:17
Оценка за ответ: 5
Комментарий к оценке: Ага. То что доктор прописал. Спасибо
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 13 мая 2010, 08:12; участников в обсуждении: 1.
|
min@y™ (статус: Доктор наук), 13 мая 2010, 08:12 [#1]:
Ну, и в чём проблема? Не знаешь, что такое множество или что такое клавиатура?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
