26.05.2014, 16:42 | #1 (permalink) |
Member
Регистрация: 26.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, написать программу с линейным алгоритмом
|
26.05.2014, 16:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что проблема будет решаться гораздо быстрее если побольше узнать о ней Помогите, пожалуйста, написать программу Помогите пожалуйста написать Программу в Delphi Помогите, пожалуйста, написать программу Помогите, пожалуйста, написать программу на С++ |
26.05.2014, 19:36 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var N,m100,m10,m1,md:Integer; Begin Repeat Write('N (0 to quit) = '); Readln(N); If N=0 then writeln('ноль') else begin md:=N mod 100; m1:=N mod 10; N:=N div 10; m10:=N mod 10; m100:=N div 10; Case M100 of 1:write('сто '); 2:write('двести '); 3:write('триста '); 4:write('четыреста '); 5:write('пятьсот '); 6:write('шестьсот '); 7:write('семьсот '); 8:write('восемьсот '); 9:write('девятьсот '); End; Case M10 of 1:Case md of 10:write('десять'); 11:write('одиннадцать'); 12:write('двенадцть'); 13:write('тринадцать'); 14:write('четырнадцать'); 15:write('пятнадцать'); 16:write('шестнадцать'); 17:write('семнадцать'); 18:write('восемнадцать'); 19:write('девятнадцать'); end; 2:write('двадцать '); 3:write('тридцать '); 4:write('сорок '); 5:write('пятьдесят '); 6:write('шестьдесят '); 7:write('семьдесят '); 8:write('восемьдесят '); 9:write('девяносто '); End; If m10<>1 then Case m1 of 1:write('один'); 2:write('два'); 3:write('три'); 4:write('четыре'); 5:write('пять'); 6:write('шесть'); 7:write('семь'); 8:write('восемь'); 9:write('девять'); end; N:=1; Writeln; end; Until N=0; End. |
|
27.05.2014, 15:15 | #4 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
я вот тоже пробовал ее написать, но опередили. так же через mod div делал. от case отказался и запутался с if'ами =) а вот если через length(s) и s[i] сделать не проще?
|
27.05.2014, 15:20 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|