Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки, молоді та спорту України
Вінницький національний технічний університет
Інститут Інформаційних Технологій та Комп’ютерної Інженерії
Лабараторна робота № 1
Тема: Основи розробки програмного забезпечення
за допомогою мови програмування Pascal.
м.Вінниця 2012
Мета: Вивчення основної структури мови програмування Pascal.
Завдання: 6. Визначення кількості цифри Х в одновимірному масиві.
program MasivX;
uses crt;
var A,B:array [1..50] of integer;
i,x:integer;
function max(x:integer):integer;
var i,rezult:integer;
begin
rezult:=A[1];
for i:=2 to x do
if A[i]>rezult then rezult:=A[i];
max:=rezult;
end;
begin
writeln('Vvod massiv:');
write('Razmer massiva "x": '); readln(x);
for i:=1 to x do A[i]:=0+random(49);
clrscr;
writeln('Massiv:');
write('A:'); for i:=1 to x do write(A[i],' ');
writeln;
writeln('Preobrazovannyi massiv:');
for i:=1 to x do B[i]:=A[i]-max(x);
write('B:'); for i:=1 to x do write(B[i],' ');
readln;
end.
///
Висновок
На данній лабораторній роботі я практично засвоїв основні структури мови програмування Pascal.