03.05.2012, 23:38 | #1 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужна блок схема к Паскалю. Помогите
вот код Program Interesting_numbers_kursova; Const Size=80; Var Mas:Array[1..Size] of 0..9; n:Byte; Procedure Run(n:Byte); Var j,i,ost,cifr:Byte; begin FillChar(Mas,SizeOf(Mas),0); i:=Size; ost:=0; Mas[i]:=n; Write('N=' ,n,' '); Repeat cifr(Mas[i]*n+ost) mod 10; ost:=(Mas[i]*n+ost) div 10; dec(i); Mas[i]:=cifr; Until (Mas[i]=:0)and(ost=l); dec(i); Mas[i]:=ost; for j:=i to size do Write(Mas [j]) ; Writeln end; Begin for n:=2 to 9 do Run(n) ; End. |
03.05.2012, 23:38 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочтение ранее созданных на форуме тем очень помогает Помогите, нужна схема УНЧ Нужна блок-схема, помогите Нужна помощь. Блок-схема Помогите с задачей по Паскалю |
05.05.2012, 13:42 | #2 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Привет очень нужна блок схема, я не знаю как это сделать....
Условие Існують натуральні числа, що закінчуються цифрою N: перенесення цифри N на початок числа приводить до збільшення числа у N разів. Наприклад, число 102 564,N=4,410 256= 102 564 • 4. Знайдіть найменші натуральні числа, що задовольняють цю умову при N= 2,3,4,5,6,7,8,9. вот код Program Interesting_numbers_kursova; Const Size=80; Var Mas:Array[1..Size] of 0..9; n:Byte; Procedure Run(n:Byte); Var j,i,ost,cifr:Byte; begin FillChar(Mas,SizeOf(Mas),0); i:=Size; ost:=0; Mas[i]:=n; Write('N=' ,n,' '); Repeat cifr(Mas[i]*n+ost) mod 10; ost:=(Mas[i]*n+ost) div 10; dec(i); Mas[i]:=cifr; Until (Mas[i]=0)and(ost=l); dec(i); Mas[i]:=ost; for j:=i to size do Write(Mas [j]) ; Writeln end; Begin for n:=2 to 9 do Run(n) ; End. |
05.05.2012, 14:50 | #3 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Пожалуйста, вот блок-схема:
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|