Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Завдання № 35

Читайте также:
  1. Варіанти завдання вихідного параметру виконавчого механізму виходу
  2. Визначити завдання бухгалтерського обліку.
  3. Виконавські завдання освоєння творів великої форми.
  4. Додаткове завдання.
  5. Домашнє завдання
  6. Домашнє завдання
  7. Домашнє завдання

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; просмотров: 57 | Нарушение авторских прав


Читайте в этой же книге: Дата введения 1988-07-01 | Завдання № 10 | Завдання № 16 | Завдання № 49 |
<== предыдущая страница | следующая страница ==>
Завдання № 24| Завдання № 50

mybiblioteka.su - 2015-2024 год. (0.011 сек.)