|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.05.2014, 19:46 | #1 |
Пользователь
Регистрация: 13.05.2014
Сообщений: 21
|
Очередь
Имеется файл с натуральными числами, не большими 100. Создать одну очередь однозначных чисел, а вторую очередь двузначных чисел. Перемножить соответственные элементы двух очередей и организовать третью очередь. Результат выведите в текстовый файл.
|
26.05.2014, 19:51 | #2 | |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Цитата:
|
|
26.05.2014, 20:13 | #3 |
Пользователь
Регистрация: 13.05.2014
Сообщений: 21
|
|
26.05.2014, 20:43 | #4 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
|
26.05.2014, 20:56 | #5 |
Пользователь
Регистрация: 25.02.2013
Сообщений: 57
|
program asd;
uses crt; var m1,m2,m3:array[1..99] of integer; i,b,c,a:integer; f:text; BEGIN assign(f,'D:\in.txt'); reset(f); a:=0; while not Eof(f) do begin a:=a+1; read(f,m3[a]); end; for i:=1 to a do begin if m3[i]<=9 then begin b:=b+1; m1[b]:=m3[i]; end else begin c:=c+1; m2[c]:=m3[i]; end; end; for i:=1 to b do write(m1[i],' '); writeln; for i:=1 to c do write(m2[i],' '); writeln; if b<c then c:=b; for i:=1 to c do write(m2[i]*m1[i],' '); close(f); END. Я так понял. Последний раз редактировалось forged; 26.05.2014 в 20:58. |
26.05.2014, 20:59 | #6 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
на Free Pascal'e пойдет?
|
26.05.2014, 21:01 | #7 |
Пользователь
Регистрация: 25.02.2013
Сообщений: 57
|
Вы мне?) Не знаю писал на pascalABC.net
|
26.05.2014, 21:03 | #8 | ||
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Цитата:
|
||
26.05.2014, 21:07 | #9 |
Пользователь
Регистрация: 25.02.2013
Сообщений: 57
|
|
26.05.2014, 21:09 | #10 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Ах да.. Вы же <> ты.. сори.. Последний раз редактировалось Poma][a; 26.05.2014 в 21:16. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вводим 15 элементов в очередь, затем выводим на экран эту очередь и добавил в очередь еще один элемент. Потом удаляем любой элемен | Xumera | C++ Builder | 2 | 07.12.2013 13:56 |
Очередь | sys*.12 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 05.12.2012 04:43 |
Очередь Си | svetikzo | Помощь студентам | 0 | 23.01.2010 10:03 |
Очередь C++ | svetikzo | Помощь студентам | 2 | 23.01.2010 09:53 |
Очередь | skiffter | Помощь студентам | 2 | 03.12.2009 17:39 |