МОН РК
КГУ им. Ш. Уалиханова
Физико-математический факультет
Кафедра Информационных систем и Вычислительной техники
Отчет
По вычислительной практике
1. Процедуры программ
Программа нахождения большего из четырех чисел, используя подпрограмму нахождения большего из двух чисел.
Var a,b,c,d,res1,res2,res3:integer;
Procedure Poisk(Var c1,c2:integer; var Res:integer);
Begin
if c1>c2 then res:=c1
else
res:=c2;
End;
begin
write('Введите 1-е число: ');
readln(a);
write('Введите 2-е число: ');
readln(b);
write('Введите 3-е число: ');
readln(c);
write('Введите 4-е число: ');
readln(d);
Poisk(a,b,res1);
Poisk(c,d,res2);
Poisk(res1,res2,res3);
writeln('Результат = ',res3);
end.
2. Цикл с параметром.
Ввести натуральное число N. Получить все его натуральные делители.
program p1;
label 1;
var i,n:integer;
prod:char;
begin
1:write('N= '); readln(n);
writeln('Vse ego naturalinye deliteli:');
for i:=1 to n do
if n mod i=0 then writeln(i);
write('Vi xotite prodoljiti? (y/n) '); readln(prod);
if prod='y' then goto 1;
readln;
end.
3. Цикл пока.
Программа, используя оператор WHILE, которая выводит все четные числа в диапазоне от 2 до 100 включительно и вычисляет их сумму.
uses crt;
var a,s:integer;
begin
clrscr;
a:=0;
s:=0;
while a<100 do
begin
a:=a+2;
write(a,' ');
s:=s+a;
end;
writeln;
write('Summa chetnih chisel ot 2 do 100=',s);
readln
end.
Практическая работа №2.
1. Одномерные массивы.
2. Двумерные массивы.
3. Функции.
4. Практические навыки работы в MS Excel
5. СУБД Access
1. Одномерные массивы.
Заменить каждый элемент массива средним арифметическим всех предшествующих ему элементов. Число элементов N >=100.
program dfh;
var A,B:array[1..100] of real;
i,n:integer;
f:text;
function sr(n:integer):real;
var i:integer; sum:real;
begin
sum:=0;
for i:=1 to n-1 do sum:=sum+A[i];
sr:=(sum)/(n-1);
end;
begin
write ('Vvedite razmer massiva A: ');
readln (n);
for i:=1 to n do begin
write ('A[',i,']='); readln (A[i]); end;
write ('Vot vvedennyy vami massiv A:');
for i:=1 to n do write (A[i]:0:2,' ');
writeln;
{***}
B[1]:=A[1];
for i:=2 to n do B[i]:=sr(i);
{***}
write ('Vot preobrazovanyi massiv A:');
for i:=1 to n do write (B[i]:0:2,' ');
assign(f,'rezult.txt'); rewrite(f);
for i:=1 to n do writeln (f,B[i]:0:2);
close(f);
readln;
end.
2. Двумерные массивы
Заменить все отрицательные элементы массива К (n, m) на их квадраты, положительные - на корень из данного числа.
uses
crt;
type
mas=array [1..100,1..100] of real;
var
a:mas;
i,j:integer;
procedure VVod(var a:mas);
var
i,j,n,m:integer;
begin
randomize;
write('Kolichestvo strok: ');
readln(n);
write('Kolichestvo stolbcov:');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
end;
end;
procedure ViVod(var a:mas);
var
i,j,n,m:integer;
begin
writeln('Ishodniy massiv: ');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3:0,' ');
writeln
end;
end;
Procedure W(Var a:mas);
var
i,j,n,m:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
if a[i,j]<0 then
begin
a[i,j]:=sqr(a[i,j]);
end
else
if a[i,j]>0 then
begin
a[i,j]:=sqrt(a[i,j]);
end;
end;
end;
procedure ViVod2(var a:mas);
var
i,j,n,m:integer;
begin
writeln('Rezultiryushiy massiv: ');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3:0,' ');
writeln
end;
end;
begin
Vvod(a);
Vivod(a);
W(a);
Vivod2(a);
end.
3. Функции
Установить, к чему ближе по абсолютной величине наименьшее из двух чисел - к их среднему арифметическому или среднему геометрическому.
Var a,b : real;
average : real;
geometricmean : real;
minstr : string;
function min(a,b : real) :real;
begin
min := a;
minstr := 'Pervoe';
if (b < a) then
begin
min := b;
minstr := 'Vtoroe';
end;
end;
begin
write('Vvedite 1-e chslo: ');
readln(a);
write('Vvedite 2-e chslo: ');
readln(b);
average := (a + b) / 2;
geometricmean := sqrt(a*a + b*b);
a := min(a,b);
writeln('Naimenshee chislo - ',minstr,' (',a:0:3,')');
write('Blize k srednemu ');
if (abs(average - a) < abs(geometricmean - a)) then
begin
writeln('arifmeticheskomu (',average:0:3,')');
end
else
begin
writeln('geometricheskomu (',geometricmean:0:3,')');
end;
readln;
end.
4. ............
