Pascal — различия между версиями

Материал из synset
Перейти к: навигация, поиск
Строка 20: Строка 20:
  
  
----
+
 
  
  
Строка 26: Строка 26:
  
 
<pre class="brush:pascal; gutter: false;">
 
<pre class="brush:pascal; gutter: false;">
program '''Сonversion''';
+
program Сonversion;
  
 
uses
 
uses
Строка 48: Строка 48:
 
   for j:=i downto 1 do
 
   for j:=i downto 1 do
 
       Write(a[j]);
 
       Write(a[j]);
 +
  ReadLn;
 +
end.
 +
</pre>
 +
 +
 +
== Перевод числа из системы исчисления с основанием m в десятичную систему: ==
 +
 +
 +
<pre class="brush:pascal; gutter: false;">
 +
program OppositeToConversion;
 +
 +
uses
 +
  SysUtils;
 +
Function Power(x,n:integer):integer;  {функция для возведения в степень n числа x}
 +
var
 +
  p,i:integer;
 +
begin
 +
  if n=0 then Power:=1
 +
  else begin
 +
  p:=x;
 +
  for i:=2 to n do
 +
      p:=p*x;
 +
  Power:=p;
 +
  end;
 +
end;
 +
 +
var
 +
  st:string;
 +
  i,v,sum,m:integer;
 +
  a:array[1..1000000] of byte;
 +
begin
 +
  ReadLn(st);
 +
  ReadLn(m);
 +
  v:=length(st);
 +
  for i:=1 to v do
 +
      a[v-i+1]:=StrToInt(st[v-i+1]);
 +
  sum:=0;
 +
  for i:=1 to v do
 +
      sum:=sum+Power(m,i-1)*a[v-i+1];
 +
  WriteLn(sum);
 
   ReadLn;
 
   ReadLn;
 
end.
 
end.
 
</pre>
 
</pre>

Версия 19:04, 16 февраля 2010

Работа с текстовыми файлами. Чтение и запись:

var
   f1,f2:text;
   sum,a,b:integer;
begin
   Assign(f1,'input.dat');
   Assign(f2,'output.sol');
   Rewrite(f2);
   Reset(f1);
   Read(f1, a);
   Read(f1, b);
   close(f1);
   sum:=a+b;
   Write(f2, sum);
   close(f2);
 end.



Перевод числа из десятичной системы исчисления в систему исчисления с основанием m:

program Сonversion;

uses
  SysUtils;
const
   nmax=1000000000;
var
   i,v,x,m,j:integer;
   a:array[1..nmax] of byte;
begin
   i:=0;
   ReadLn(x,m);   {Вводим число x которое необходимо перевести в систему исчисления с основанием m}
   v:=x;
   While v>0 do
    begin
      inc(i);
      a[i]:=v mod m;
      v:=v div m
    end;
   Write(x,' in the calculus of reason ',m,' = ');
   for j:=i downto 1 do
      Write(a[j]);
   ReadLn;
end.


Перевод числа из системы исчисления с основанием m в десятичную систему:

program OppositeToConversion;

uses
  SysUtils;
Function Power(x,n:integer):integer;  {функция для возведения в степень n числа x}
var
   p,i:integer;
begin
   if n=0 then Power:=1
   else begin
   p:=x;
   for i:=2 to n do
      p:=p*x;
   Power:=p;
   end;
end;

var
   st:string;
   i,v,sum,m:integer;
   a:array[1..1000000] of byte;
begin
   ReadLn(st);
   ReadLn(m);
   v:=length(st);
   for i:=1 to v do
      a[v-i+1]:=StrToInt(st[v-i+1]); 
   sum:=0;
   for i:=1 to v do
      sum:=sum+Power(m,i-1)*a[v-i+1];
   WriteLn(sum);
   ReadLn;
end.