Помогите человеку(Pascal)

Для всех любителей и профессионалов этого нелегкого дела.

Модераторы: Почётные модераторы, Модераторы "Программирование"

Помогите человеку(Pascal)

Сообщение DAHuJIA » 12 окт 2009, 19:07

Есть прога на паскале:
Код: Выделить всё
program treugolnik;
Uses crt;
Var x,y : integer;
    z : longint;
Begin
for y:=5 to 23 do
 begin
 x:=round (y*3.5);
 gotoxy(x,y);
 write('Ж');
 for z:=1 to 50000 do begin end;
 gotoxy(x,y);
 write ('Ж');
 end;
 
for y:=23 downto 5 do
 begin
  x:=round (y*3.5);
  gotoxy(x,y);
  write('Ж');
  for z:=1 to 50000 do begin end;
  gotoxy(x,y);
  write ('Ж');
  end;
for y:=5 to 23 do
 begin
  x:=81-round (y*3.5);
  gotoxy(x,y);
  write('Ж');
  for z:=1 to 50000 do begin end;
  gotoxy(x,y);
  write ('Ж');
  end;
 
  End.
 
 

По заданию надо что бы выводил треугольник, а получается крест :(. Где собака зарыта?
Аватара пользователя
DAHuJIA
 
Сообщения: 350
Зарегистрирован: 27 мар 2009, 22:08
Откуда: Магнитогорск

Re: Помогите человеку(Pascal)

Сообщение brain » 12 окт 2009, 20:05

Сам писал?)
попробуй в 3 цикле
for y:=5 to 23 do
begin
x:=162-round (y*3.5);
Во 2 цикле:
for x:=16 to 81 do
begin
y:=5;

Вроде должен получица треугольник :)
Аватара пользователя
brain
 
Сообщения: 245
Зарегистрирован: 24 сен 2007, 14:16


Вернуться в Программирование

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1