Примеры на Паскале
Чтобы использовать примеры, скачайте и используйте один из редакторов.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{В программе подробно описано как возвести число в степень, в самом паскале нет такой функции}
Var
Z, А : Real; M : integer;
Function Step (N: integer; X:real): real;
Var
I: integer; Y: Real;
Begin
I:=1; Y:=1;
While I<=N do
Begin
Y:=Y*X; I:=I+1;
End;
Step:=Y;
End; {Конец функции}
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(M,Z);
Writeln(Z, ‘ в степени’, M, ‘=’,F);
End.
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
program CountSpacesInString;
var
str: string;
function CountSpaces (s: string): integer;
var
i, count: integer;
begin
count := 0;
for i:=1 to length(s) do
if s[i]=' ' then
count := count+1;
CountSpaces := count;
end;
{основная программа}
begin
writeln('Программа подсчитывает количество пробелов '+'во введенной строке');
repeat
writeln('Введите исходную непустую строку:');
readln(str);
if (length(str)<1) then
writeln('Исходная строка должна быть непустой');
until length(str)>0;
writeln('В строке "',str,'" ',CountSpaces(str),' пробелов.');
readln;
end.
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Var
A, I : Integer;
Min : Integer;
Begin
Min:=32767;
For I:=1 to 10 do
Begin
Write('Vvedi chislo ');
Readln(A);
If A < Min then Min:=A;
end;
Writeln('MIN=',Min);
Readln;
end.
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Var A, B, C, D, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты квадратного уравнения: a,b,c');
Readln (A,B,C);
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
End;
End.
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Var
I, S, N : Longint;
Begin
Writeln('Введите целое'); Readln(I);
N:=1;
While I > 10 DO
BEGIN
I:=I DIV 10;
Inc(N);
end;
Write('Количество цифр = ',N);
Readln;
end.
|
|
1
2
3
4
5
6
7
8
|
var
f: file;{файловая переменная f}
begin
assign(f,'test.txt'); {назначение файловой переменной f имени файла test.txt}
rewrite(f); {создание файла и открытие его для записи}
writeln(f,'Запись'); {запись информации в файл}
close(f); {закрытие файла}
end.
|
|
1
2
3
4
5
6
7
8
9
10
|
Var
K, Des, Ed : Integer;
Begin
Write('Введи десятичное число '); Readln(K);
Des:= K DIV 10;
Ed:= K MOD 10;
Writeln('Количество десятков в числе =', Des);
Writeln('Количество единиц в числе =', Ed);
Readln;
End.
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
const n = 10; { количество элементов в массиве }
var a:array[1..n] of integer;
i,j,x:integer;
begin
writeln('введите ',n,' элементов массива');
for i:=1 to n do readln( a[i] );
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if a[i]>a[j] then begin
x:=a[i]; a[i]:=a[j]; a[j]:=x;
end;
end;
end;
writeln('после сортировки:');
for i:=1 to n do writeln( a[i] );
end.
[/spoiler]
|
|
1
2
3
4
5
6
7
8
9
10
11
12
|
var a:array[1..10] of integer;
s:longint;
i:integer;
begin
writeln('введите 10 элементов массива');
s:=0;
for i:=1 to 10 do begin
readln( a[i] );
s:=s+a[i];
end;
writeln( 'Сумма элементов массива = ', s );
end.
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
var a,n,c,d:word;
begin { основная программа }
readln( a );
n:=1;
while ( n <= sqrt(a) ) do begin
c:=a mod n;
d:=a div n;
if c = 0 then begin
writeln( n );
if n <> d then writeln( d );
end;
inc( n );
end;
end.
|