Программа на Паскале Free или Turbo. Циклы - Страница 2

Léon · 18.12.2011, 17:43

Цитата:

Сообщение от Vladimir_S

Ох, вот это бы здорово! А то я несколько зашиваюсь: у нашего дорогого студенческого юношества манера - сладко спать весь семестр, а за несколько (это еще в лучшем случае) дней до зачетной недели просыпаться и обнаруживать, что надо сдать лабораторки за полгода, а знаний не хватает даже на задачи типа c=a+b.

Да это правда!
Я всё сдаю во время. Просто преподаватель долго не задавала, а потом раз и 2 задачи, и какие! Я итак хорошо учусь, но думаю буду больше стараться! Спасибо Вам огромное.

Vladimir_S · 18.12.2011, 17:58

Успехов!...

Léon · 26.12.2011, 15:07

Цитата:

Сообщение от Vladimir_S

Const W=['3','4','5','6','7','8','9']; VAR S:String; b:Boolean; N3,N10,N3_frc_re:Real; N3_int,N3_frc,N3_frc0,m,dd10,dd3:LongInt; Sign:ShortInt; i,N3f_int,N3f_frc,fig:Byte; BEGIN Repeat b:=true; Write('Enter the number in 3-based system: '); Readln(N3); STR(N3:0:8,S); for i:=1 to length(S) do if S[i] in W then begin Writeln('Wrong input!'); b:=false; end; Until b; If N3<0 then Sign:=-1 else Sign:=1; N3:=Abs(N3); N3_int:=Trunc(N3); N3_frc_re:=N3-1.0*N3_int; m:=1; Repeat m:=m*10; N3_frc:=Round(N3_frc_re*m); Until Round(1.0*N3_frc/m*100000000)=Round(N3_frc_re*100000000); N10:=0; N3_frc0:=N3_frc; If N3_int>0 then begin N3f_int:=Round(Ln(N3_int)/Ln(10)); {Number of figures in integer part of 3-based number -1} For m:=N3f_int downto 1 do begin dd10:=1; for i:=1 to m do dd10:=dd10*10; fig:=N3_int div dd10; dd3:=1; for i:=1 to m do dd3:=dd3*3; N10:=N10+fig*dd3; N3_int:=N3_int mod dd10; end; N10:=N10+N3_int; end; If N3_frc>0 then begin N3f_frc:=Round(Ln(N3_frc)/Ln(10)); {Number of figures in fractional part of 3-based number -1} For m:=N3f_frc downto 0 do begin dd10:=1; for i:=1 to m do dd10:=dd10*10; fig:=N3_frc div dd10; dd3:=1; for i:=1 to N3f_frc-m+1 do dd3:=dd3*3; N10:=N10+1.0*fig/dd3; N3_frc:=N3_frc mod dd10; end; end; N10:=N10*Sign; Write('N in decimal system is '); If N3_frc0=0 then Writeln(Round(N10)) else Writeln(N10:0:8); Readln; END.

Вы бы не смогли подсказать, как будет выглядеть эта программа для перевода из десятичной системы счисления в троичную!

Vladimir_S · 26.12.2011, 15:24

Цитата:

Сообщение от 11Angelav

Вы бы не смогли подсказать, как будет выглядеть эта программа для перевода из десятичной системы счисления в троичную!

Посмотрю вечером, если будет время.

Léon · 26.12.2011, 15:25

Цитата:

Сообщение от Vladimir_S

Посмотрю вечером, если будет время.

Пожалуйста.......

Vladimir_S · 26.12.2011, 20:50

Цитата:

Сообщение от 11Angelav

Пожалуйста.......

Пожалуйста. Правда, это не совсем та программа: тут сделано несколько иначе. Но работает.

Код:

Const
 Max_Number_of_Figures=5;
VAR
 N10,N3,N10_frc_re,r:Real;
 N10_int,m:LongInt;
 Sign:ShortInt;
 fig:Byte;


BEGIN
 Write('Enter the number in decimal system: ');
 Readln(N10);
 If N10<0 then Sign:=-1 else Sign:=1;
 N10:=Abs(N10);
 N10_int:=Trunc(N10);
 N10_frc_re:=N10-1.0*N10_int;
 N3:=0;
 If N10_int>0 then
  begin
   m:=1;
   Repeat
    m:=m*3;
   Until m>N10_int;
   Repeat
    m:=m div 3;
    fig:=N10_int div m;
    N10_int:=N10_int mod m;
    N3:=N3*10+fig;
   Until m=1;
  end;
 If N10_frc_re>0 then
  begin
   r:=1;
   m:=0;
   Repeat
    r:=r/10;
    Inc(m);
    N10_frc_re:=N10_frc_re*3;
    fig:=Trunc(N10_frc_re);
    N10_frc_re:=N10_frc_re-fig;
    N3:=N3+fig*r;
   Until m=Max_Number_of_Figures;
  end;
 N3:=N3*Sign;
 Write('N in 3-based system is ');
 If N10_frc_re=0 then
  Writeln(Round(N3))
 else
  Writeln(N3:0:Max_Number_of_Figures);
 Readln;
END.

Léon · 26.12.2011, 21:33

Vladimir_S, спасибо большое!
Программа работает. Что же я без Вас делала (и конечно без сайта).
Спасибо! С Рождеством!

Vladimir_S · 27.12.2011, 09:33

Цитата:

Сообщение от 11Angelav

С Рождеством!

И Вас также! С Рождеством (прошедшим), Новым Годом (наступающим) и опять Рождеством!

18.12.2011, 17:43
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ознакомьтесь с этими топиками, наверняка тут есть ответ который вам нужен Программа вычисления интеграла на Паскале Turbo Pascal с Turbo Vision Циклы VBA Программа на паскале Программа на Паскале

18.12.2011, 17:58	#12 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Успехов!...

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

26.12.2011, 21:33	#17 (permalink)
Léon С# - learn or die Регистрация: 17.12.2011 Сообщений: 2,438 Записей в дневнике: 8 Сказал(а) спасибо: 21 Поблагодарили 49 раз(а) в 11 сообщениях Репутация: 19701	Vladimir_S, спасибо большое! Программа работает. Что же я без Вас делала (и конечно без сайта). Спасибо! С Рождеством!