48866 (Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application)
Описание файла
Документ из архива "Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "контрольные работы и аттестации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48866"
Текст из документа "48866"
Полтавський університет споживчої кооперації України
Факультет економіки та менеджменту
Кафедра економічної кібернетики
Звіт про виконання індивідуальних завдань
з дисципліни „Інформатика та комп’ютерна техніка”
на тему: „Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application”
Виконав студент гр. ЕК - 22
спеціальності 6.050102 “Економічна кібернетика”
Кот Денис Володимирович
Полтава 2007
Зміст
1. Алгоритми у вигляді блок–схем для розв’язання задач
1.1 Блок-схема до задачі № 1
1.2 Блок-схема до задачі № 2
1.3 Блок-схема до задачі № 3
1.4 Блок-схема до задачі № 4
2. Задачі
2.1 Задача № 1 (прикладна задача)
2.2 Задача № 2 (задача на одновимірний масив)
2.3 Задача № 3 (задача на двовимірний масив)
2.4 Задача № 4 (задача на використання символьних величин)
Блок-схема до задачі № 1
Б
лок-схема до задачі № 2
Блок-схема до задачі № 3
Блок-схема до задачі № 4
Варіант №22
1. Прикладна задача
Якщо a,b,c,d – сторони чотирикутника, то чи не є він паралелограмом?
Текст програми:
program k1;
var
a,b,c,d:integer;
begin
writeln('Введите длины сторон четырехугольника');
read(a,b,c,d);
if ((a=b) and (c=d)) or ((a=c) and (b=d))
then writeln('Четырехугольник- паралелограмм')
else writeln('Это другая фигура');
readln
end.
Результат роботи програми:
2. Задача на одновимірний масив
Визначити максимальний елемент серед елементів масиву В, які задовольняють умову хі < 0, та його порядковий номер.
Текст програми:
program k2;
const n=10;
var
b:array [1..n] of integer;
i,max,number:integer;
begin
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('b[',i,']=');
readln(b[i])
end;
for i:=1 to n do
begin
write(b[i]:4);
end;
max:=-maxint; number:=0;
for i:=1 to n do
begin
if (b[i]max) then
begin
max:=b[i];
number:=i
end;
end;
writeln;
if number<> 0 then
begin
writeln('Максимальный среди отрицательных ',max);
writeln('Его номер в массиве ',number);
end
else writeln('Все элементы - неотрицательные');
readln
end.
Результат роботи програми
3. Задача на двовимірний масив
Знайти найбільший і найменший елементи матриці R(K,N), K<=20, N<=10 та поміняти їх місцями. Надрукувати матрицю R й одержану матрицю.
Текст програми (для простоти введення візьмемо менші значення k та n):
program k3;
const k=6;n=3;
var
r:array [1..k,1..n] of integer;
i,j,max,min,x1,x2,y1,y2:integer;
begin
writeln('Введите элементы массива');
for i:=1 to k do
for j:=1 to n do
begin
write('r[',i,',',j,']=');
readln(r[i,j])
end;
writeln;
for i:=1 to k do
begin
for j:=1 to n do write(r[i,j]:3);
writeln
end;
max:=r[1,1];
x1:=1;y1:=1;
for i:=1 to k do
for j:=1 to n do
if r[i,j]>max then
begin
max:=r[i,j];
x1:=i;y1:=j
end;
min:=r[1,1];
x2:=1;y2:=1;
for i:=1 to k do
for j:=1 to n do
if r[i,j]
begin
min:=r[i,j];
x2:=i;y2:=j
end;
writeln;
writeln('Максимальный= ',max);
writeln('Минимальный= ',min);
r[x1,y1]:=min;r[x2,y2]:=max;
writeln;
writeln('Новый массив');
for i:=1 to k do
begin
for j:=1 to n do write(r[i,j]:3);
writeln
end;
readln
end.
Результат роботи програми:
4. Задача на використання символьних величин
Задано рядок, що містить від 1 до 30 слів, у кожному з яких від 1 до 5 прописних латинських літер, між сусідніми словами – кома, за останнім словом – крапка. Надрукувати цей же рядок слів, але в зворотньому порядку.
Текст програми:
program k4;
uses crt;
var
a,b:string;
i,n:integer;
begin
clrscr;
writeln('Введите строку слов через запятую');
readln(a);
b:='';
n:=length(a);
writeln;
writeln('Строка в обратном порядке слов');
writeln;
for i:=n-1 downto 0 do
if (a[i]<>',') and (i<>0) then b:=a[i]+b
else
begin
write(b);b:='';
if i<>0 then write(',')
end;
write('.');
readln
end.
Результат роботи програми:
