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

Материал из synset
Перейти к: навигация, поиск
Строка 1: Строка 1:
Pascal
 
  
  
<pre class='brush:pascal'>
 
begin
 
end.
 
</pre>
 
  
Работа с текстовыми файлами. Чтение и запись:  
+
 
 +
== Работа с текстовыми файлами. Чтение и запись: ==
 +
 
<pre class="brush:pascal; gutter: false;">
 
<pre class="brush:pascal; gutter: false;">
 
var
 
var
Строка 25: Строка 22:
 
  end.
 
  end.
 
</pre>
 
</pre>
 +
 +
 +
== Перевод из десятичной системы исчисления в систему исчисления с основанием m: ==
  
 
<pre class="brush:pascal; gutter: false;">
 
<pre class="brush:pascal; gutter: false;">

Версия 17:18, 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.