![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 28.08.2015
Сообщений: 6
|
![]()
Пожалуйста помогите срочно!!!
Вывести числа от 1 до N^2 без использования массивов и двумерных массивов следующим образом (N вводится с клавиатуры, например N=4): 1 3 4 10 2 5 9 11 6 8 12 15 7 13 14 16 Не понимаю как это можно решить без двумерных массивов! Последний раз редактировалось Street-Striker; 14.09.2015 в 22:14. |
![]() |
![]() |
![]() |
#2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 28.08.2015
Сообщений: 6
|
![]()
Знаю конечно.
|
![]() |
![]() |
![]() |
#4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Ну вот ты там заполняешь массив по координатам. Так? Замени заполнение массива переводом курсора в консоли и получишь работу без массива
![]()
I'm learning to live...
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 28.08.2015
Сообщений: 6
|
![]()
Извините, конечно, но я вас не понял.
Пожалуйста, измените мой код так, как вы написали. Вот мой оптимизированный код: var n,i,j,l,k: integer; a: array [1..100,1..100] of int64; procedure Q; begin k:=k+1; a[i,l-i+1]:=k end; begin read(n); for l:=1 to 2*n-1 do if l>n then if odd(l) then for i:=l-n+1 to n do Q else for i:=n downto l-n+1 do Q else if odd(l) then for i:=1 to l do Q else for i:=l downto 1 do Q; for i:=1 to n do begin for j:=1 to n do write(a[i,j],' '); writeln end end. Последний раз редактировалось Street-Striker; 14.09.2015 в 20:32. |
![]() |
![]() |
![]() |
#6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Вот что я имел ввиду:
Код:
I'm learning to live...
|
![]() |
![]() |
![]() |
#7 |
Регистрация: 28.08.2015
Сообщений: 6
|
![]()
У меня Free Pascal/Pascal ABC
Спасибо. А разве у меня под Turbo Pascal не подходит? а, ну да, int64-Free Pascal' евский, не относится к Turbo Pascal Последний раз редактировалось Stilet; 14.09.2015 в 20:56. |
![]() |
![]() |
![]() |
#8 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,325
|
![]()
Ну с переводом каретки скучно
![]() Интереснее вывести формулу, зависящую от координат: Код:
Можно ее попробовать поупрощать: Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись
![]() Последний раз редактировалось BDA; 14.09.2015 в 20:57. |
![]() |
![]() |
![]() |
#9 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
Либо у тебя Фри, либо Абэцэйка - выбери что-то. Так то мой пример что там что там не сработает, но смысл я надеюсь донес. Цитата:
![]()
I'm learning to live...
|
||
![]() |
![]() |
![]() |
#10 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,325
|
![]()
Ну Вы уже внесли
![]() PS Чуть поправил там код
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись
![]() |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
обработка двумерных массивов | Jalgas-xan | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.01.2013 13:50 |
Обработка двумерных массивов (Pascal) | Olga Sharik | Помощь студентам | 0 | 01.05.2012 17:52 |
обработка двумерных массивов (pascal) | likanmaster | Помощь студентам | 0 | 03.12.2011 14:25 |
Turbo Pascal - Композиция Двух Двумерных Массивов размером 100х100 | ulala | Помощь студентам | 2 | 09.11.2011 15:54 |
Обработка двумерных массивов | Alexxxxxx | Помощь студентам | 5 | 23.10.2011 00:07 |