Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
Модератор
42222 / 30736 / 1801
Регистрация: 18.05.2008
Сообщений: 65,424
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 zoomisus19 28.05.2014 17:17
Turbo Pascal Нарисовать рисунок
Вот такой
Turbo Pascal Gabdra 28.05.2014 16:32
Turbo Pascal Нарисовать рисунок
Вот это
Turbo Pascal Gabdra 28.05.2014 16:22
Delphi Нарисовать рисунок
Помогайте добрые люди:) вот это надо нарисовать через Канву (Canvas)
Delphi для начинающих somethingicy 22.03.2013 22:35
Pascal ABC нарисовать рисунок
Помогите пожалуйста сделать в паскале этот дом! Заранее огромное спасибо!!! P.S крыша-это не тругольник, а 2 линии.
Pascal ABC ПоляКурникова 26.11.2012 18:11
Pascal ABC Нарисовать рисунок
Помогите пожалуйста нарисовать эту красоту:) Заранее большое спасибо!!!
Pascal ABC ПоляКурникова 04.10.2012 00:12
Turbo Pascal Нарисовать рисунок
Нарисовать рисунок в движение: кубик падающий на висы при со прикосновением с висами стрелка ходит вперед назад .
Turbo Pascal fyrieel 01.11.2011 15:10
Turbo Pascal Нарисовать рисунок
Нужна помощь в этом задании: Надо нарисовать треугольную доску со стороной из трех правильных шестиугольников. Раскрасить доску тремя стилями. Тут фотка рисунка, поэтому от качества следует...
Turbo Pascal yura` 30.03.2010 23:45
Опции темы

Текущее время: 10:41. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.