Хід роботи
1. uses crt;
const
n = 10;
var
a:array[1..n] of integer;
i,j,buf:integer;
begin
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
writeln;
writeln('Массив после сортировки методом перестановки: ');
for i:=1 to n do
write(a[i],' ');
end.
2. uses crt;
var a:array[1..10] of integer;
j,i,n,m:integer;
begin
writeln('input n koliches numbers <10');
read(n);
for i:=1 to n do
readln(a[i]);
for j:=1 to n-1 do
begin
for i:=1 to n-j do
if a[i]>a[i+1] then
begin
m:=a[i];
a[i]:=a[i+1];
a[i+1]:=m
end;
for i:=1 to n do write (' ', a[i]:1);
end.
3. uses crt;
const n=10;k1=10;k2=2*k1+1;
type vec=array[1..n] of integer;
var a,b:vec;
k,i,f,r:integer;
ch:char;
l:Boolean;
begin
Repeat
clrscr;
randomize;
Write('vuhidnuy macuv a[i]=');
for i:=1 to n do
begin
f:=random(k2);
a[i]:=k1-f;
write(a[i]:3);
end;
writeln;
b:=a;
Repeat
l:=true;
for i:=1 to n-1 do
If b[i]>b[i+1] then
begin
r:=b[i];
b[i]:=b[i+1];
b[i+1]:=r;
l:=false;
end;
Until l;
Write('Yporadkovanuy masuv b[i]=');
for i:=1 to n do
write(b[i]:3);
readln;
ch:=Readkey;
Until ch=#27;
End.
Звіт №8
Тема:Робота з множнними типами даних.Операції над множинами.
Мета:Отримання навичок у завданні змінних множинного типу і виконання найпростіших операцій над даними.Знайомство із завданнями,в яких доцільно використовувати змінні множинних типів.отримання навичок в організації вводу/виводу значень множинних типів.отримання практичних навичок у виконанні операцій над множинами.
Хід роботи
Ввести довільний текст.У даному тексті знайти і надрукувати віс символи,які записані після першого символу.
uses crt; var s:char; c:string; i,n:integer; eoln:boolean; begin i:=0; writeln('input ebta stroky'); readln(c); n := 0; for i:=1 to Length(c) do begin if (c[i]>='0')and(c[i]<='9') then inc(n); end; writeln('This string contains ',n,' numbers.'); readln; writeln('input stroky eche raz pls'); repeat read(s); if not (s in['?','!',':',';',',','-','+','-','*','/','>','<','.',' ','1','2','3','4','5','6','7','8','9','0']) then begin if s in['0'..'9'] then i:=i+1; write(s); end until eoln; writeln; writeln('chiclo', i:2); end.
Звіт №9
Тема:Циклічні алгоритми та програми
Мета:Навчитися та закріпити знання про алгоритми
Хід роботи
1. Uses crt;
Var a,b,c,d,I,j:string;
begin
writeln('abiant:');
readln(a);
writeln('ykr moto:');
readln(b);
writeln('dinamo:');
readln(c);
writeln('torfmash:');
readln(d);
writeln('klao:');
readln(i);
writeln('avtobyd:');
readln(j);
writeln('abiant:',a);
writeln('ykr moto:',b);
writeln('dinamo:',c);
writeln('torfmash:',d);
writeln('klao:',i);
writeln('avtobyd:',j);
readln;
end.
2.Написати програму,яка буде виводити середню температуру трьох країн.
uses crt;
var d1,d2,d3:string;
t11,t12,t13,t14,t21,t22,t23,t24,t31,t32,t33,t34:integer;
ts1,ts2,ts3:real;
begin
clrscr;
writeln('Vvedit nazvy troh krain:');
readln(d1,d2,d3);
writeln('Vvedit pokaznuku temperatru dla kognoi krainu:' );
writeln('Dla ',d1); write('cichen-'); readln(t11); write('kviten-');
readln(t12); write('lupen-'); readln(t13); write('govten-');
readln(t14); writeln('Dla ',d2); write('cichen-');readln(t21);
write('kviten-'); readln(t22); write('lupen-'); readln(t23);
write('govten-'); readln(t24); writeln('Dla ',d3); write('cichen-');
readln(t31); write('kviten-'); readln(t32); write('lupen-');
readln(t33); write('govten-'); readln(t34);
ts1:=(t11+t12+t13+t14)/4;
ts2:=(t21+t22+t23+t24)/4;
ts3:=(t31+t32+t33+t34)/4;
writeln('y',d1,'ceredna t.za rik=',ts1);
writeln('y',d2,'ceredna t.za rik=',ts2);
writeln('y',d3,'ceredna t.za rik=',ts3);
end.
Звіт №10
Тема:Створення найпростіших графічних фігур та зображень.
Мета:Навчитись переходити в графічний режим роботи і створити найпростіші графічні фігури та зображення.