Какой тип нужно присвоить a,u,s,m,p, чтобы при их вводе в файл, выводилось число?

[Настя1303]

    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]

Сообщение от Настя1303

Какой тип нужно присвоить a,u,s,m,p, чтобы при их вводе в файл, выводилось число?

Поясните, что Вы имеете в виду?
У Вас тип этих переменных - integer, это целочисленные значения.

Что куда нужно выводить или откуда вводить?

[evg_m]

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, чтобы при их вводе в файл

означает что вводим мы БУКВЫ(символы) из перечисленного

[Serge_Bliznykov]

а, увидел в коде, что Вы хотите использовать эти переменные в качестве вариантов значений для 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 уже ответил.

[Настя1303]

Всем огромное спасибо)