Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 18, средняя оценка - 4.61
@leks
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 27
#1

Нарисовать рисунок в виде буквы Х - Turbo Pascal

28.05.2012, 11:04. Просмотров 2161. Ответов 4
Метки нет (Все метки)

помогите пожалуйста!!!

Нарисовать рисунок в виде буквы Х
6 6
5 5
44
33
2 2
1 1
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2012, 11:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нарисовать рисунок в виде буквы Х (Turbo Pascal):

Нарисовать рисунок - Turbo Pascal

Нарисовать рисунок - Turbo Pascal
Нарисовать рисунок:

Нарисовать рисунок - Turbo Pascal
Нарисовать рисунок:

Нарисовать рисунок - Turbo Pascal

Нарисовать рисунок - Turbo Pascal
прошу вас Уважаемые админы сделать рисунок дедпула в паскале Добавлено через 14 минут поднял

Нарисовать рисунок - Turbo Pascal
Вот этот.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
LuckyTheGreat
18 / 18 / 3
Регистрация: 22.03.2011
Сообщений: 194
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.
Вот простой вариант
1
@leks
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 27
29.05.2012, 15:58  [ТС] #3
Нужно через цикл

Добавлено через 13 секунд
помогите
0
Puporev
Модератор
51930 / 39860 / 13190
Регистрация: 18.05.2008
Сообщений: 91,283
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.
1
@leks
0 / 0 / 0
Регистрация: 25.05.2012
Сообщений: 27
29.05.2012, 22:04  [ТС] #5
СПАСИБО БОЛЬШОЕ!!!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2012, 22:04
Привет! Вот еще темы с ответами:

Нарисовать рисунок - Turbo Pascal
Помогите нарисовать картинку

Нарисовать рисунок - Turbo Pascal
Вот такой

Нарисовать рисунок - Turbo Pascal
Вот это

Нарисовать рисунок - Turbo Pascal
Нужно сделать рисунок и разрисовать его. Рисунок О


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
29.05.2012, 22:04
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru