Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Основи розробки програмного забезпечення
Інформація про навчальний заклад
ВУЗ:
Вінницькій національний технічний університет
Інститут:
Не вказано
Факультет:
Комп'ютерна інженерія
Кафедра:
Не вказано
Інформація про роботу
Рік:
2012
Тип роботи:
Лабораторна робота
Предмет:
Інформаційні технології
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки, молоді та спорту України
Вінницький національний технічний університет
Інститут Інформаційних Технологій та Комп’ютерної Інженерії
Лабараторна робота № 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.
06.02.2014 01:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора