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.