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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2018, 09:40   #1
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
Печаль Какой тип нужно присвоить a,u,s,m,p, чтобы при их вводе в файл, выводилось число?

Код:
    program n_h;
 var k,a,u,s,p,m: integer;
       f,g:text;
 begin
  assign(f,'input.txt');
  reset(f);
  read (f,k);
  close(f);
  assign (g,'output.txt');
  rewrite(g);
  case k of
   a :  write  (g, '436');
   u :  write  (g, '60');
   m :  write (g, '340');
   s :  write  (g, '2500');
   p :  write  (g, '400');
   end;
     close (g)
   end.


------------------
Настя, чтобы оформлять код тегами, нужно поставить один тег в начале, второй [/CODE] в конце.
или воспользоваться кнопкой на панели форматирования: читать FAQ
Модератор

Последний раз редактировалось Serge_Bliznykov; 04.10.2018 в 10:13.
Настя1303 вне форума Ответить с цитированием
Старый 04.10.2018, 10:15   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Настя1303 Посмотреть сообщение
Какой тип нужно присвоить a,u,s,m,p, чтобы при их вводе в файл, выводилось число?
Поясните, что Вы имеете в виду?
У Вас тип этих переменных - integer, это целочисленные значения.

Что куда нужно выводить или откуда вводить?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.10.2018, 10:17   #3
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

1. вар.1 они вобще не нужны
Код:
var k,a,u,s,p,m: integer;
...
'a' : write (g, '436');
2. но если все-таки хочется то это будут константы
Код:
var k,a,u,s,p,m: integer;
const
  a ='a';
  u ='u';
...// и т.д.
ведь
Цитата:
a,u,s,m,p, чтобы при их вводе в файл
означает что вводим мы БУКВЫ(символы) из перечисленного
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 04.10.2018 в 10:20.
evg_m вне форума Ответить с цитированием
Старый 04.10.2018, 10:22   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

а, увидел в коде, что Вы хотите использовать эти переменные в качестве вариантов значений для case

Цитата:
Сообщение от Настя1303 Посмотреть сообщение
Код:
case k of
   a :  write  (g, '436');
   u :  write  (g, '60');
   m :  write (g, '340');
   s :  write  (g, '2500');
   p :  write  (g, '400');
Так нельзя. Нужно использовать только константы (перечисляемого типа).
Код:
 program n_h;
const
 a = 1; u = 2; s=3; p=4; m=5;
 var k: integer;
       f,g:text;
 begin
....

ОПОЗДАЛ.

evg_m уже ответил.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.10.2018, 11:20   #5
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
По умолчанию

Всем огромное спасибо)
Настя1303 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно,чтобы при вводе х и y были попадания в закрашенную область графика Dimasik49 Помощь студентам 5 17.12.2017 21:53
C# — Как, при вводе двух слов, присвоить переменную второму слову? Tony1337 C# (си шарп) 6 21.04.2017 00:32
как сделать так чтобы при нажатии на ComboBox выводилось поле из таблицы DBGrid? jawa250t БД в Delphi 4 21.04.2012 21:57
если я хочу чтобы переменная была рандом, нужно просто написать, что типа а:=random? какой это будет тип переменных? gylayko Помощь студентам 6 04.10.2011 12:58
Нужно чтобы выводилось каждое 5-ое число Анастасия=) Общие вопросы C/C++ 1 16.12.2010 02:47