Вывести строку-словесное описание числа

@Erkosha · Регистрация: 10.02.2011

Author24 — интернет-сервис помощи студентам

Дано целое число в диапозоне 100-999.Вывести строку-словесное описание данного числа, например: 256-"двести пятьдесят шесть", 814-"восемьсот четырнадцать".

@N@tali · 10.02.2011, 09:59

Pascal

 Program K;
  var x,y,z:String;
 s1,s2,s3:Char;
stop:Boolean;
begin
stop:=false;
z:='';
repeat
WriteLn;
Write('Введите целое число в диапазоне (100-999):');
 ReadLn(s1,s2,s3);
 case s1 of
 '1':x:='сто';
 '2':x:='двести';
 '3':x:='триста';
 '4':x:='четыреста';
 '5':x:='пятьсот';
'6':x:='шестьсот';
'7':x:='семьсот';
'8':x:='восемьсот';
'9':x:='девятьсот';
end;
if (s2+s3)='10' then
y:='десять';
if (s2+s3)='11' then
y:='одиннадцать';
if (s2+s3)='12' then
 y:='двенадцать';
if (s2+s3)='13' then
y:='тринадцать';
if (s2+s3)='14' then
y:='четырнадцать';
if (s2+s3)='15'then
 y:='пятнадцать';
if (s2+s3)='16' then
y:='шестнадцать';
if (s2+s3)='17' then
y:='семнадцать';
if (s2+s3)='18' then
y:='восемнадцать';
if (s2+s3)='19' then
y:='девятнадцать';
case s2 of
'2':y:='двадцать';
 '3':y:='тридцать';
'4':y:='сорок';
'5':y:='пятьдесят';
'6':y:='шестьдесят';
'7':y:='семьдесят';
'8':y:='восемьдесят';
'9':y:='девяносто';
end;
if  s2<>'1' then
begin
case s3 of
'1':z:='один';
 '2':z:='два';
'3':z:='три';
 '4':z:='четыре';
'5':z:='пять';
'6':z:='шесть';
'7':z:='семь';
'8':z:='восемь';
'9':z:='девять';
 end;
 end;
if not stop then
 WriteLn('Словесное описание:',x+' '+y+' '+z+ ';');
until stop
end.

@Puporev · 10.02.2011, 10:06

Pascal

uses crt;
var st:string;
    n,i:longint;
    c:array[1..4]of integer;
begin
clrscr;
repeat
write('Введите трехзначное число n=');
readln(n);
until(n>99)and(n<1000);
st:='';
case n div 100 of
 1:st:=st+'сто';
 2:st:=st+'двести';
 3:st:=st+'триста';
 4:st:=st+'четыреста';
 5:st:=st+'пятьсот';
 6:st:=st+'шестьсот';
 7:st:=st+'семьсот';
 8:st:=st+'восемьсот';
 9:st:=st+'девятьсот';
end;
case (n mod 100) div 10 of
 2:st:=st+' двадцать';
 3:st:=st+' тридцать';
 4:st:=st+' сорок';
 5:st:=st+' пятьдесят';
 6:st:=st+' шестьдесят';
 7:st:=st+' семьдесят';
 8:st:=st+' восемьдесят';
 9:st:=st+' девяносто';
 end;
 case n mod 100 of
 10:st:=st+' десять';
 11:st:=st+' одинадцать';
 12:st:=st+' двенадцать';
 13:st:=st+' тринадцать';
 14:st:=st+' четырнадцать';
 15:st:=st+' пятнадцать';
 16:st:=st+' шестнадцать';
 17:st:=st+' семнадцать';
 18:st:=st+' восемнадцать';
 19:st:=st+' девятнадцать';
 else
 case n mod 10 of
  1:st:=st+' один';
  2:st:=st+' два';
  3:st:=st+' три';
  4:st:=st+' четыре';
  5:st:=st+' пять';
  6:st:=st+' шесть';
  7:st:=st+' семь';
  8:st:=st+' восемь';
  9:st:=st+' девять';
  end;
  end;
writeln(st);
readln
end.

@aidoqa · 15.02.2011, 19:46

N@tali можно у вас спросить я сделал программу по вашей прграмме не подскажете как мне с нее выйти я нажал f9+ctrl

Добавлено через 1 минуту
что надо для этого сделать

Добавлено через 1 минуту
или нажать

@Puporev · 15.02.2011, 19:50

aidoqa, Нажми Ctrl+Pause Breack

Добавлено через 49 секунд
И больше не запускай программы от N@tali,

@aidoqa · 15.02.2011, 19:51

не получается

@Puporev · 15.02.2011, 19:53

Несколько раз нажми..

@aidoqa · 15.02.2011, 19:56

СПАСИБО!!!!!!!!!!еще хотел спросить что надо добавить в программу натали чтобы выходить с программы

@Puporev · 15.02.2011, 20:03

Выкинуть лишнее, а то я не знаю что она хотела сделать, да не доделала..

Pascal

 Program K;
  var x,y,z:String;
 s1,s2,s3:Char;
begin
z:='';
Write('Введите целое число в диапазоне (100-999):');
 ReadLn(s1,s2,s3);
 case s1 of
 '1':x:='сто';
 '2':x:='двести';
 '3':x:='триста';
 '4':x:='четыреста';
 '5':x:='пятьсот';
'6':x:='шестьсот';
'7':x:='семьсот';
'8':x:='восемьсот';
'9':x:='девятьсот';
end;
if (s2+s3)='10' then
y:='десять';
if (s2+s3)='11' then
y:='одиннадцать';
if (s2+s3)='12' then
 y:='двенадцать';
if (s2+s3)='13' then
y:='тринадцать';
if (s2+s3)='14' then
y:='четырнадцать';
if (s2+s3)='15'then
 y:='пятнадцать';
if (s2+s3)='16' then
y:='шестнадцать';
if (s2+s3)='17' then
y:='семнадцать';
if (s2+s3)='18' then
y:='восемнадцать';
if (s2+s3)='19' then
y:='девятнадцать';
case s2 of
'2':y:='двадцать';
 '3':y:='тридцать';
'4':y:='сорок';
'5':y:='пятьдесят';
'6':y:='шестьдесят';
'7':y:='семьдесят';
'8':y:='восемьдесят';
'9':y:='девяносто';
end;
if  s2<>'1' then
begin
case s3 of
'1':z:='один';
 '2':z:='два';
'3':z:='три';
 '4':z:='четыре';
'5':z:='пять';
'6':z:='шесть';
'7':z:='семь';
'8':z:='восемь';
'9':z:='девять';
 end;
 end;
writeLn('Словесное описание:',x+' '+y+' '+z+ ';');
readln
end.

@Erkosha · 18.02.2011, 13:52 **[ТС]**

sorry!!!!mojete sdelat' blok-sxemu))))) budu priznatelen!!!!

@Puporev · 18.02.2011, 13:53

Руки отнимутся ромбики рисовать...

@Erkosha · 18.02.2011, 14:09 **[ТС]**

Natali, sorry, mojew' sdelat' blok-sxemu???? plz =)

@N@tali · 18.02.2011, 14:47

схема

@firstov · 27.12.2011, 00:15

можете написать прогу переводящую числа в словестный эквеволент например 2383.18 - две тысяци триста восемдесят три целых восемнадцать сотых.

Вывести строку-словесное описание числа

Решение

Решение

Решение

@Erkosha 56 / 9 / 0 Регистрация: 10.02.2011 Сообщений: 88
		1
	Вывести строку-словесное описание числа 10.02.2011, 09:45. Показов 8543. Ответов 13 Метки нет (Все метки) Дано целое число в диапозоне 100-999.Вывести строку-словесное описание данного числа, например: 256-"двести пятьдесят шесть", 814-"восемьсот четырнадцать". 0

@aidoqa 587 / 101 / 2 Регистрация: 08.02.2011 Сообщений: 842
	15.02.2011, 19:46	4
	N@tali можно у вас спросить я сделал программу по вашей прграмме не подскажете как мне с нее выйти я нажал f9+ctrl Добавлено через 1 минуту что надо для этого сделать Добавлено через 1 минуту или нажать 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.02.2011, 19:50	5
	aidoqa, Нажми Ctrl+Pause Breack Добавлено через 49 секунд И больше не запускай программы от N@tali, 1

@aidoqa 587 / 101 / 2 Регистрация: 08.02.2011 Сообщений: 842
	15.02.2011, 19:51	6
	не получается 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.02.2011, 19:53	7
	Несколько раз нажми.. 1

@aidoqa 587 / 101 / 2 Регистрация: 08.02.2011 Сообщений: 842
	15.02.2011, 19:56	8
	СПАСИБО!!!!!!!!!!еще хотел спросить что надо добавить в программу натали чтобы выходить с программы 0

@Erkosha 56 / 9 / 0 Регистрация: 10.02.2011 Сообщений: 88
	18.02.2011, 13:52 [ТС]	10
	sorry!!!!mojete sdelat' blok-sxemu))))) budu priznatelen!!!! 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.02.2011, 13:53	11
	Руки отнимутся ромбики рисовать... 0

@Erkosha 56 / 9 / 0 Регистрация: 10.02.2011 Сообщений: 88
	18.02.2011, 14:09 [ТС]	12
	Natali, sorry, mojew' sdelat' blok-sxemu???? plz =) 0

@firstov 0 / 0 / 0 Регистрация: 26.12.2011 Сообщений: 30
	27.12.2011, 00:15	14
	можете написать прогу переводящую числа в словестный эквеволент например 2383.18 - две тысяци триста восемдесят три целых восемнадцать сотых. 0

Опции темы