Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

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

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

Нарисовать рисунок в виде буквы Х
6 6
5 5
44
33
2 2
1 1
28.05.2012, 11:04
AdAgent
Объявления
28.05.2012, 12:55   #2
LuckyTheGreat
Форумчанин
Регистрация: 22.03.2011
Сообщений: 191
Репутация: 18 (18)
Лучшие ответы: 1
Нарисовать рисунок в виде буквы Х

Код 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.
Вот простой вариант
Другие темы раздела
Элементами треугольника являются cторона, площадь, высота. По номеру и значению элемента вычислить значения остальных Turbo Pascal
Элементами равностороннего треугольника являются сторона a площадь s высота h Составьте программу , которая по заданному номеру и значению соответсвующего элемента вычисляла бы значения всех остальных элементов треугольника.Составить графическую схему алгоритма и программу на алгоритмическом...
Логическое выражение. Данное натуральное число N кратно K, но не кратно L Turbo Pascal
1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно. Данное натуральное число N кратно K, но не кратно L. 2. Точно и четко сформулировать условие задачи, которая решается в данной программе: Program Kr_2_3; Const NMax = 100; Type...
29.05.2012, 15:58  [ТС]   #3
@leks
Новичок
Регистрация: 25.05.2012
Сообщений: 27
Репутация: 0 (0)
Нарисовать рисунок в виде буквы Х

Нужно через цикл

Добавлено через 13 секунд
помогите
29.05.2012, 17:02   #4
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 64,922
Репутация: 42008 (30528)
Лучшие ответы: 1,721
Нарисовать рисунок в виде буквы Х

Код 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.
29.05.2012, 22:04  [ТС]   #5
@leks
Новичок
Регистрация: 25.05.2012
Сообщений: 27
Репутация: 0 (0)
Нарисовать рисунок в виде буквы Х / Turbo Pascal

СПАСИБО БОЛЬШОЕ!!!!!!
29.05.2012, 22:04
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal: Нарисовать рисунок
Вот этот.
Turbo Pascal Gabdra 19.06.2014 16:11
QBasic: Нарисовать рисунок
Помогите нарисовать рисунок.
QBasic Resi 30.05.2014 14:15
Turbo Pascal: Нарисовать рисунок
Пожалуйста помогите!Нужно нарисовать 2 рисунка в Паскале.Я так понял нужно нарисовать в цикле,но воплотить это в реальность не получается.
Turbo Pascal soured 17.05.2013 16:27
Delphi: нарисовать рисунок
помогите на рисовать в делфи рисунок
Delphi Ром11 28.04.2013 11:41
Delphi: Нарисовать рисунок
Помогайте добрые люди:) вот это надо нарисовать через Канву (Canvas)
Delphi для начинающих somethingicy 22.03.2013 22:35
Опции темы

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

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