|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.02.2008, 09:22 | #1 |
Регистрация: 28.02.2008
Сообщений: 5
|
помогите решить задачу на Turbo Паскале!
Сформулируйте и выведите на экран массив из 9 элементов каждые 3 последующие элементы которого формулируются по правилам:
1- равен числу введенного с клавиатуры; 2- равен удвоенному текущему индексу; 3 -равен однозначному числу полученному с помощью датчика случайных чисел. Очень надо! За ранее блогадарен! |
28.02.2008, 10:11 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Идеи есть?
I'm learning to live...
|
28.02.2008, 12:19 | #3 |
Регистрация: 28.02.2008
Сообщений: 5
|
Надо создать масив но как и внего заганять данные!
|
28.02.2008, 12:24 | #4 |
Форумчанин
Регистрация: 16.01.2008
Сообщений: 288
|
Может не сформулируйте, а сформируйте? В чем проблема ? Читай сразу три элемента в цикле от одного до 9. Или проверяй делимость числа на 3 и на 2 через mod.
Наример Код:
Последний раз редактировалось Иллидан; 28.02.2008 в 12:29. |
28.02.2008, 12:56 | #5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Чтобы приведенный выше алгоритм красиво работал, его нужно слегка дополнить и сделать вывод не столбиком..
Код:
Последний раз редактировалось puporev; 28.02.2008 в 12:59. |
28.02.2008, 16:23 | #6 |
Регистрация: 28.02.2008
Сообщений: 5
|
Все понятно только как формируется каждое второе число масив? Это число должно быть в два раза больше введенного с клавиатуры!
uses crt; - очищает экран var a:array[1..9]of integer; - формирует масив из 9 ячеек i:integer; - определяем тип перменной begin clrscr; randomize; i:=1; - присваиваем начально значение переменной while i<=9 do - проверяем что i меньше 9 begin readln(a[i]); -считываем переменную i:=i+1; - прибавляем 1 a[i]:=2*i; умножаем на 2 i:=i+1; и еще раз прибавляем 1 a[i]:=random(10); - генерируем число до 10 i:=i+1; - прибавляем 1 end; конец процедур for i:=1 to 9 do цикл 9 раз write(a[i],' '); записваем в масив readln прибавляем счетчик end. конец я правильно разобрался в программе? Последний раз редактировалось Alex21; 29.02.2008 в 10:19. |
28.02.2008, 16:59 | #7 | ||
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
По условию:
Цитата:
Цитата:
Код:
|
||
28.02.2008, 17:02 | #8 |
Регистрация: 28.02.2008
Сообщений: 5
|
а зачем два раза прибавляем в 12 16 строке единицы?
|
28.02.2008, 17:24 | #9 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Код:
|
28.02.2008, 17:29 | #10 |
Регистрация: 28.02.2008
Сообщений: 5
|
Все разобрался всем БОЛЬШОЕ спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу на Turbo Pascal | tree | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 16.05.2010 23:27 |
Помогите, пожалуйста, решить задачу на Turbo Pascal. Тема: записи. | Morrigan13 | Помощь студентам | 1 | 28.03.2008 21:09 |
Помогите решить задачу в Паскале | freeman4913 | Помощь студентам | 3 | 24.12.2007 21:41 |