Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
@leks
Новичок
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 27
28.05.2012, 11:04     Нарисовать рисунок в виде буквы Х
  #1
помогите пожалуйста!!!

Нарисовать рисунок в виде буквы Х
6 6
5 5
44
33
2 2
1 1
AdAgent
Объявления
28.05.2012, 11:04
LuckyTheGreat
Форумчанин
18 / 18 / 1
Регистрация: 22.03.2011
Сообщений: 191
28.05.2012, 12:55
  #2
Код Pascal
1
2
3
4
5
6
7
8
9
Program r;
 begin
 writeln("6       6");
 writeln(" 5     5 ");
 writeln("   44    ");
 writeln("   33    ");
 writeln(" 2     2 ");
 writeln("1       1");
end.
Вот простой вариант
@leks
Новичок
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 27
29.05.2012, 15:58  [ТС]
  #3
Нужно через цикл

Добавлено через 13 секунд
помогите
Puporev
Модератор
42405 / 30919 / 1868
Регистрация: 18.05.2008
Сообщений: 65,937
29.05.2012, 17:02
  #4
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var i,j:byte;
begin
clrscr;
for i:=1 to 6 do
 begin
  for j:=1 to 6 do
  if (j=i)or(j=7-i) then write(7-i:2)
  else write(' ':2);
  writeln;
 end;
readln
end.
@leks
Новичок
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 27
29.05.2012, 22:04  [ТС]     Нарисовать рисунок в виде буквы Х
  #5
СПАСИБО БОЛЬШОЕ!!!!!!
Yandex
Объявления
29.05.2012, 22:04
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Turbo Pascal Нарисовать рисунок
Вот этот.
Turbo Pascal 1 Gabdra 19.06.2014 16:11
Turbo Pascal Нарисовать рисунок
Нарисовать рисунок:
Turbo Pascal 1 nikitiyss 29.05.2014 20:18
Turbo Pascal Нарисовать рисунок
Вот такой
Turbo Pascal 1 Gabdra 28.05.2014 16:32
Turbo Pascal Нарисовать рисунок
Вот это
Turbo Pascal 1 Gabdra 28.05.2014 16:22
Turbo Pascal Нарисовать рисунок
Turbo Pascal 2 Gabdra 16.05.2014 20:54
Turbo Pascal Нарисовать рисунок
Загружайте изображения и файлы на форум и прикрепляйте к сообщению. http://www.cyberforum.ru/about-forum/thread103521.html#post594251
Turbo Pascal 1 Gabdra 26.04.2014 10:01
Turbo Pascal Нарисовать рисунок
Turbo Pascal 1 Gabdra 20.04.2014 14:34
Turbo Pascal Нарисовать рисунок
Нужна помощь в этом задании: Надо нарисовать треугольную доску со стороной из трех правильных шестиугольников. Раскрасить доску тремя стилями. Тут фотка рисунка, поэтому от качества следует...
Turbo Pascal 3 yura` 30.03.2010 23:45
Опции темы

Текущее время: 19:42. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.