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

Материал из synset
Перейти к: навигация, поиск
 
(не показаны 23 промежуточные версии этого же участника)
Строка 1: Строка 1:
−
'''Станадартные программы для реализации алгоритмов на языке Pascal '''
+
'''Паскаль''' (англ. ''Pascal'') — высокоуровневый язык программирования общего назначения. Один из наиболее известных языков программирования, широко применяется в промышленном программировании, обучении программированию в высшей школе, является базой для большого числа других языков. Был создан Никлаусом Виртом в 1968-69 годах (опубликован в 1970 году) после его участия в работе комитета разработки стандарта языка Алгол-68.
  
 +
Ниже представлен список разделов, в которых находятся описания и реализация программ на языке Pascal. Данные программы могут быть полезны в написании более сложных программ.
  
 +
[[Pascal:Целочисленная арифметика|Целочисленная арифметика]]
  
 +
[[Pascal:системы исчисления|Cистемы исчисления]]
  
 +
[[Pascal:длинная арифметика|Длинная арифметика]]
  
−
 
+
[[Pascal:Разное|Разное]]
−
 
 
−
== Работа с текстовыми файлами. Чтение и запись: ==
 
−
 
−
<pre class="brush:pascal; gutter: false;">
 
−
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.
 
−
</pre>
 
−
 
 
−
 
 
−
 
 
−
 
 
−
 
 
−
== Перевод числа из десятичной системы исчисления в систему исчисления с основанием m: ==
 
−
 
 
−
<pre class="brush:pascal; gutter: false;">
 
−
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.
 
−
</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;
 
−
end.
 
−
</pre>
 
−
--[[Участник:Den|Den]] 19:09, 16 февраля 2010 (UTC)
 

Текущая версия на 13:16, 21 февраля 2010

Паскаль (англ. Pascal) — высокоуровневый язык программирования общего назначения. Один из наиболее известных языков программирования, широко применяется в промышленном программировании, обучении программированию в высшей школе, является базой для большого числа других языков. Был создан Никлаусом Виртом в 1968-69 годах (опубликован в 1970 году) после его участия в работе комитета разработки стандарта языка Алгол-68.

Ниже представлен список разделов, в которых находятся описания и реализация программ на языке Pascal. Данные программы могут быть полезны в написании более сложных программ.

Целочисленная арифметика

Cистемы исчисления

Длинная арифметика

Разное

Источник — «http://synset.com/wiki/index.php?title=Pascal&oldid=1285»