Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.02.2014, 18:04   #1
mysterio369
 
Регистрация: 11.02.2014
Сообщений: 9
По умолчанию Помогите написать программу.

Паскалем пользуюсь совсем не давно, помогите написать программу.
Напишите программу, которая выводит числа от 10 до 16 в следующем виде. В программе используйте только одну переменную Z
чтобы цифры в виде знака больше выводились.
10
----11
--------12
------------13
--------14
----15
16

знак "-" , это пробел

Последний раз редактировалось mysterio369; 11.02.2014 в 18:22.
mysterio369 вне форума
Старый 11.02.2014, 18:15   #2
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
чтобы цифры в виде знака больше выводились
Простите, но как это правильно понять?
Streletz вне форума
Старый 11.02.2014, 18:19   #3
mysterio369
 
Регистрация: 11.02.2014
Сообщений: 9
По умолчанию

Цитата:
Сообщение от Streletz Посмотреть сообщение
Простите, но как это правильно понять?
Я не совсем понимаю как сюда прикреплять фотографии.
mysterio369 вне форума
Старый 11.02.2014, 18:25   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Streletz, чтобы выведенные числа образовали из себя фигуру в виде знака "больше".
Код:
for i := 1 to 7 do
begin
  writeln((i + 9):(14 - 4 * abs(i - 4)));
  writeln;
end;
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 11.02.2014 в 18:32.
BDA на форуме
Старый 11.02.2014, 18:26   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ниже редактора поста есть кнопка Расширенный режим. Там можно указывать файл для прикрепления

Так что ли?:
Код:
var
  i:integer; c,s:string;
begin

  { add your program here }
  s:='';
  for i:=0  to 10 do begin   Str(i,c); writeln(s,c);s:=s+' ';  end;
  for i:=11 to 21 do begin   Str(i,c); writeln(s,c);delete(s,1,1);  end;
  readln;
  // stop program loop
end;
I'm learning to live...

Последний раз редактировалось Stilet; 11.02.2014 в 18:30.
Stilet вне форума
Старый 11.02.2014, 18:29   #6
mysterio369
 
Регистрация: 11.02.2014
Сообщений: 9
По умолчанию

Ребят, может поможите с программой, как написать?
mysterio369 вне форума
Старый 11.02.2014, 18:31   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

А тебе нужно научиться задавать вопросы на будущее. См. выше.
I'm learning to live...
Stilet вне форума
Старый 11.02.2014, 18:40   #8
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Streletz, чтобы выведенные числа образовали из себя фигуру в виде знака "больше".
Код:
for i := 1 to 7 do
begin
  writeln((i + 9):(14 - 4 * abs(i - 4)));
  writeln;
end;
BDA, спасибо, а то я уже думу передумал, гадая, что же на самом деле имел в виду ТС. Правильно сказано в пословице: "Век живи - век учись".
Streletz вне форума
Старый 11.02.2014, 18:42   #9
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Streletz, "Век живи - век учись составлять ТЗ"
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме
Старый 11.02.2014, 18:53   #10
mysterio369
 
Регистрация: 11.02.2014
Сообщений: 9
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Ниже редактора поста есть кнопка Расширенный режим. Там можно указывать файл для прикрепления

Так что ли?:
Код:
var
  i:integer; c,s:string;
begin

  { add your program here }
  s:='';
  for i:=0  to 10 do begin   Str(i,c); writeln(s,c);s:=s+' ';  end;
  for i:=11 to 21 do begin   Str(i,c); writeln(s,c);delete(s,1,1);  end;
  readln;
  // stop program loop
end;
Спасибо огромное!!!!
Но в условии ясно сказано, что использовать нужно только одну переменную, а у вас их 3

Последний раз редактировалось mysterio369; 11.02.2014 в 19:09.
mysterio369 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программу! Vania19961712 Общие вопросы C/C++ 0 06.01.2014 16:54
помогите написать программу!!! egorov.i Паскаль, Turbo Pascal, PascalABC.NET 0 17.10.2013 13:41
Помогите написать программу на С++ AleksandrDm Общие вопросы C/C++ 2 21.01.2009 17:15
помогите написать программу chapurin Фриланс 1 20.12.2008 18:04
помогите написать программу. ZixiT Общие вопросы Delphi 7 22.11.2006 11:05