Завдання № 35

const n=5;

var a:array[1..n]of byte;

i,x:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i]:4);

end;

{перестановка}

x:=a[n];

for i:=n downto 2 do

a[i]:=a[i-1];

a[1]:=x;

{виведення}

for i:=1 to n do

write(a[i]:4);

end.

Завдання № 36

const n=5;

var a:array[1..n]of byte;

i,j,x:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i]:4);

end;

{сортування}

for i:=1 to (n-1) do

for j:=1 to (n-i) do

if a[j]>a[j+1] then

begin

x:=a[j];

a[j]:=a[j+1];

a[j+1]:=x;

end;

{виведення}

for i:=1 to n do

write(a[i]:4);

end.

Завдання № 37

const n=5;

var a:array[1..n]of byte;

i,j,x,min:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i]:4);

end;

{сортування}

for i:=1 to (n-1) do

begin

min:=i;

for j:=i+1 to n do

if a[j]<a[min] then min:=j;

x:=a[i];

a[i]:=a[min];

a[min]:=x;

end;

{виведення}

for i:=1 to n do

write(a[i]:4);

end.

Завдання № 38

const n=5;

var a:array[1..n]of byte;

i,j,k,x:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i]:4);

end;

{сортування}

for i:=1 to (n-1) do

for j:=i+1 to n do

begin

min:=i;

if a[i]>a[j] then x:=a[j];

for k:=j downto i+1 do

a[k]:=a[k-1];

a[i]:= x;

end;

{виведення}

for i:=1 to n do

write(a[i]:4);

end.

Завдання № 39

const n=5;

var a:array[1..n,1..n] of byte;

i,j:integer;

begin

{ ініціалізація масиву }

for i:=1 to n do

for j:=1 to n do

a[i,j]:=random(20);

{виведення}

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:4);

writeln;

end;

end.

Завдання № 40

var M:set of 10..30;

i,n,k:integer;

begin

write(‘Всього елементів’);

readln(n);

for i:=1 to n do

begin

read(k);

M:= M +[k];

end;

end.

Завдання № 41

var M:set of 10..30;

k:integer;

begin

writeln(‘0 ознака закінчення вводу’);

read(k);

while k<>0 do

begin

M:= M +[k];

read(k);

end;

end.

Завдання № 42

var M:set of 10..30;

k:integer;

begin

{ініціалізація множини}

writeln(‘0 ознака закінчення вводу’);

read(k);

while k<>0 do

begin

M:= M +[k];

read(k);

end;

readln;

{виведення}

for k:=1 to n do

if k in M

then write(k,’ ’);

writeln;

end.

Завдання № 43

program outfile;

var f:text;

s:string;

begin

Assign (f,'example.txt');

Reset(f);

while not eof(f) do

begin

readln(f,s);

writeln(s);

end;

Close(f);

readln;

end.

Завдання № 44

Один із можливих варіантів правильного розв’язку:

program infile;

var f:text;

s:string;

а,і,n:integer;

b:real;

begin

n:=5;

write(‘скільки рядків треба ввести? ’); readln(n);

Assign (f,'example.txt');

Rewrite(f);

for i:=1 to n do

begin

writeln('введіть дані: integer, real, string');

readln(a,b,s);

writeln(f,'a=',a,' b=',b,' s=',s);

end;

Close(f);

readln;

end.

Завдання № 45

program sortfile;

var f: file of real;

a,b: real; i,j: integer;

begin

Assign(f, 'f4.dat'); Reset(f);

for j:=FileSize(f)-2 downto 0 do

for i:=0 to j do

begin

seek(f,i);

read(f,a,b);

if a>b then

begin

seek(f,i);

write(f,b,a);

end;

end;

Close(f);

end.

Завдання № 46

program Bilety;

uses Crt;

var k, m, cena: integer;

begin

clrscr;

wгitе1n('Введіть номер пункту і кількість квитків:');

readln(k, m);

case k of

1: cena:=22;

2..4: cena:=25;

5,6: cena:=30;

else cena:=35

end;

write(m,'квитків до пункту',k,'коштують');

writeln(m * cena);

readln

end.

Дата добавления: 2015-07-20