Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 04.10.2018, 10:40   #1
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
Репутация: 10
Печаль Какой тип нужно присвоить 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 в 11:13.
Настя1303 вне форума   Ответить с цитированием
Старый 04.10.2018, 11:15   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,502
Репутация: 5308
По умолчанию

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

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

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 в 11:20.
evg_m вне форума   Ответить с цитированием
Старый 04.10.2018, 11:22   #4
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,502
Репутация: 5308
По умолчанию

а, увидел в коде, что Вы хотите использовать эти переменные в качестве вариантов значений для 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, 12:20   #5
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно,чтобы при вводе х и y были попадания в закрашенную область графика Dimasik49 Помощь студентам 5 17.12.2017 22:53
C# — Как, при вводе двух слов, присвоить переменную второму слову? Tony1337 C# (си шарп) 6 21.04.2017 01: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 03:47


03:47.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru