Консультация № 173513
21.10.2009, 15:58
0.00 руб.
0 4 1
составить программу которая по первой букве названия инструмента (резец, фреза, шлифовальный круг, напильник) выдавала бы наименование специальности (токарь, фрезеровщик, хонинговщик, шлифовальщик, слесарь)

Обсуждение

давно
Специалист
246813
155
21.10.2009, 16:50
общий
это ответ
Здравствуйте, nikolai999999.
Код программы проверен на Free Pascal.
Вопросы можете задавать в мини-форум.

Приложение:
program q_173513;
Uses CRT; {подключаем библиотеку CRT}
var s: char;
begin
ClrScr; {очищаем экран}
WriteLn('Vvedite pervuju bukvu instrumenta (rezec-r, freza-f, shlifoval''nyj krug-k, napil''nik-n): ');
ReadLn(s);{s - будет содержать только одну первую введенную букву}
Case s of
'r' : WriteLn('Tokar''');
'f' : WriteLn('Frezerovwik');
'k': WriteLn('Honingovwik');
'n' : WriteLn('Slesar''');
else WriteLn('V sledujuwij raz vvedite pravil''nuju bukvu');
end;
WriteLn('Nazhmite ljubuju klavishu dlja zavershenija');
ReadKey;
end.
Неизвестный
23.10.2009, 13:17
общий
LfiN:
Добрый день! По-моему, вводится-таки название (string).
давно
Специалист
246813
155
23.10.2009, 16:20
общий
leonid59:
День добрый! А почему вам char не нравится?
Неизвестный
23.10.2009, 18:28
общий
LfiN:
Нравится, отчего же. Скорее всего, двусмысленность вопроса. Я понял так, что вводится строка, анализируется первый символ и т.д. Поскольку разъяснений от автора вопроса нет, Ваш ответ поддержу.
Форма ответа