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

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

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.03.2010, 20:29   #1
lara1
Новичок
Джуниор
 
Регистрация: 09.03.2010
Сообщений: 0
По умолчанию изучаем паскаль.

помогите решить задачу. Нужно ввести целое число (в пределах разумного) и вывести на экран картинку типа:
например, для числа 7

1111111
1222221
1233321
1234321
1233321
1222221
1111111

нельзя использовать массивы, но можно циклы for и while.
lara1 вне форума Ответить с цитированием
Старый 09.03.2010, 21:48   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

а как эта картинка зависит от 7? что изменится, если будет 12?
p51x на форуме Ответить с цитированием
Старый 09.03.2010, 21:57   #3
lara1
Новичок
Джуниор
 
Регистрация: 09.03.2010
Сообщений: 0
По умолчанию

в картинке 7 строк и 7 столбцов
для 12 будет 12 строк и столбцов
с третьей строки в середине 4 и т.п.
lara1 вне форума Ответить с цитированием
Старый 09.03.2010, 22:04   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
Лампочка

Цитата:
а как эта картинка зависит от 7?
матрица 7 на 7 с уменьшающимся элементами (к центру)..

не уверен, что такой код подойдёт, но он реально работает! для любых (разумных) N

Код:
var n, i,j,k : integer;
   ctr : double;
begin

  Writeln('Vvedite n: ');
  Readln(n);

  ctr := (n / 2) + 0.5;
  WriteLn;
  WriteLn('-----------------------');
  for i:=1 to n do begin
    for j:=1 to n do begin
      if abs(ctr-i)>abs(ctr-j)
        then k:= trunc(ctr-abs(ctr-i))
        else k:= trunc(ctr-abs(ctr-j));
      write(k:1);
    end;
    WriteLn;
  end;
  Readln;
end.
p.s. основан на том, что находятся координаты центра матрицы, а потом для каждой координаты i и j высчитывается удаление от центра (максимальное)...
и полученное расстояние вычитается из координаты центра...

Последний раз редактировалось Serge_Bliznykov; 09.03.2010 в 22:39.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 09.03.2010, 23:08   #5
lara1
Новичок
Джуниор
 
Регистрация: 09.03.2010
Сообщений: 0
По умолчанию

Спасибо, сейчас попробую!
Похоже, что будет работать!
lara1 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
Паскаль Roll1n Помощь студентам 1 24.11.2009 22:55
Паскаль Yulia_508 Паскаль, Turbo Pascal, PascalABC.NET 2 10.05.2009 18:55