Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.11.2015, 15:38   #1
Данилов
 
Регистрация: 06.11.2015
Сообщений: 7
По умолчанию Паскаль.Циклы.

Нужна помощь в написании программы:
Выведите числа от 1 до N на экран в виде: N N-1........1
N N-1.....2
N N-1..3
...
N
в виде прямоугольного треугольника с вершиной прямого угла находящейся в верхней правой части матрицы.

Последний раз редактировалось Данилов; 06.11.2015 в 15:41.
Данилов вне форума Ответить с цитированием
Старый 06.11.2015, 15:44   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
for i:=1 to N do begin
  for j:=N downto i do Write(j,' ');
  WriteLn
end;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.11.2015, 15:50   #3
Данилов
 
Регистрация: 06.11.2015
Сообщений: 7
По умолчанию

N N-1.........1
N N-1........2
N N-1 .....3
....
N
но чтобы цифры в матрице располагались на главной диагонали и выше неё.

Как должна выглядеть программа с данными операторами целиком.

Последний раз редактировалось Stilet; 06.11.2015 в 18:48.
Данилов вне форума Ответить с цитированием
Старый 06.11.2015, 18:46   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

это типа как-то вот так штоль?

115.jpg
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 07.11.2015, 12:54   #5
Данилов
 
Регистрация: 06.11.2015
Сообщений: 7
По умолчанию

Да. Благодарю.
Данилов вне форума Ответить с цитированием
Старый 08.11.2015, 00:31   #6
temaps
Форумчанин
 
Регистрация: 15.05.2011
Сообщений: 160
По умолчанию

Можно просто пост #2 чуть модифицировать:
Код:
CONST
  N=10;
  OTSTUP=3;
var
  i,j:integer;
begin
  for i:=1 to N do
  begin
    write(N:i*OTSTUP);
    for j:=N-1 downto i do write(j:OTSTUP);
    writeln;
  end;
end.
temaps вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, циклы gennadii Помощь студентам 3 17.10.2012 08:41
Циклы.Паскаль. Jeckee Помощь студентам 43 20.11.2010 22:03
Паскаль Циклы. please Тригер Помощь студентам 3 14.10.2010 14:12
Циклы. Паскаль SIvk Помощь студентам 4 10.03.2010 20:44
Паскаль..циклы uropb992 Помощь студентам 3 30.12.2009 08:50