Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов 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, 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.
Вот простой вариант
Другие темы раздела Форум программистов Turbo Pascal. Программирование на языке Turbo Pascal. Помощь студентам и школьникам в решении задач.
Элементами треугольника являются 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
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,280
Репутация: 40947 (29494)
Лучшие ответы: 1174
Нарисовать рисунок в виде буквы Х

Код 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 Нарисовать рисунок
помогите нарисовать рисунок
Mityai697
Pascal ABC нарисовать рисунок
1)создать программу ,когда рисуешь один прямоугольник и из него делаешь шахматную доску 2)нарисовать машинку движение
вАНЯ1000
Pascal (Паскаль) Нарисовать рисунок
Халп плиз учитель задал программу которая должна быть напичатана в Паскале, а я незнаю как её зделать =( "Нарисовать рисунок: Четырехугольника зарисованого, треугольника, эллипса зарисованого, круга, ламаной с трех частей, линию в таком расположении: слева, вцентре,справа...
Serheyko
Turbo Pascal Нарисовать рисунок
Нужна помощь в этом задании: Надо нарисовать треугольную доску со стороной из трех правильных шестиугольников. Раскрасить доску тремя стилями. Тут фотка рисунка, поэтому от качества следует ожидать лутшего, так что за это извиняюсь. Доска должна былжна быть ровной, а не такой какая она на...
yura`
Pascal (Паскаль) Нарисовать рисунок
Помогите плииз,у меня линии не совпадают
vaness
Опции темы

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

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