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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2012, 00:33   #1
Knopo4ka
Новичок
Джуниор
 
Регистрация: 16.02.2012
Сообщений: 2
По умолчанию Как написать программу так,чтобы в ответе выводило число и буквы,например 12 evro ?

Я в программировании новичок,поэтому многого не знаю,подскажите,пожалуйста.
Knopo4ka вне форума Ответить с цитированием
Старый 17.02.2012, 04:02   #2
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Нет проблем, Кнопочка ))
Вот такой оператор напечатает тебе, что ты просишь:

Код:
  writeln(12, ' euro');
(обрати внимание на пробел внутри кавычек).
Это вывод через константы, то есть всегда будет печатать отно и то же число и текст. Если сделать как-то так:
Код:
var
  v: integer;
  u: string;

.....   // тут всякие другие операторы твоей проги..

  v:= 12;
  u:= 'euro';
  writeln(v, ' ', u);

.....
Тут можно менять и значение, и название валюты (например, 25 dollars). Кстати, обрати внимание, что тут пробел выделен в отдельную константу, и его не надо вводить в название валюты.
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 17.02.2012, 21:48   #3
Knopo4ka
Новичок
Джуниор
 
Регистрация: 16.02.2012
Сообщений: 2
По умолчанию

А как написать программу,которая выводит таблицу соответствия между теми же евро и гривнями(чтобы в ответе было так:
1 euro = 11 grn
2 euro = 22 grn и т.д).А то у меня не совсем так получается.
Knopo4ka вне форума Ответить с цитированием
Старый 19.02.2012, 01:43   #4
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

сам вывод подробно описал TinMan
а вот программа которая выводит таблицу соответствий
Код:
const
  rate = 11;// курс евро относительно гривны 

var
  i: integer;
  count: integer;

begin
  readln(count); // до какого значения евро выводить таблицу соответствий
    {если надо всегда до определенного значения,
      например до 10, то можно задать значение сразу.
           тогда вы уберете ввод с клавиатуры
             а вместо count вы напишете просто 10}
  for i := 1 to count do 
  begin
    writeln(i:4, ' euro = ', i * rate:4, ' grn');
  end;
end.

Последний раз редактировалось unbanned; 19.02.2012 в 20:04.
unbanned вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходимо доработать программу "Паскаль" с типизированными файлами, чтобы результат выводило в текстовый документ а не на экран. Женька Good Помощь студентам 0 09.12.2011 21:20
Пвивет как зделат так чтобы так чтобы в edit...... vmilyoshin Помощь студентам 9 23.09.2011 02:48
как написать так, чтобы формула забирала значения переменных? peq Microsoft Office Excel 2 22.10.2010 13:47
Как сделать так, чтобы в корректно отображались русские буквы(С) Александр Елис Помощь студентам 0 06.11.2009 19:39
Как сделать так чтобы моя программа при включении отображалась в панели задач, как например часы Window ? asked86 Win Api 1 15.12.2008 08:42