Рефетека.ру / Информатика и програм-ие

Контрольная работа: Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

Полтавський університет споживчої кооперації України


Факультет економіки та менеджменту


Кафедра економічної кібернетики


Звіт про виконання індивідуальних завдань

з дисципліни „Інформатика та комп’ютерна техніка”

на тему: „Розробка алгоритмів та складання програм на мові програмування 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


Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application


Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for ApplicationБлок-схема до задачі № 2


Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application


Блок-схема до задачі № 3


Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application


Блок-схема до задачі № 4

Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

Варіант №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, та його порядковий номер.

Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application


Текст програми:


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]<0) and (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.


Результат роботи програми

Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

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]<min then

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.

Результат роботи програми:


Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application


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.


Результат роботи програми:


Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

Похожие работы:

  1. Програмування алгоритмічною мовою VBA
  2. • Робота з данними в середовищі електронних таблиць ...
  3. • Автоматизоване нарахування заробітної плати
  4. • Довідкова система по кримінальному праву
  5. • Автоматизований аналіз злочинності
  6. • Автоматизований облік власників автомобілей
  7. • Автоматизований облік власників автотранспорту
  8. • Автоматизована реєстрація і облік викрадених ...
  9. • Автоматизований аналіз злочинності по областям
  10. • База даних по приватним підприємствам регіону
  11. • Аналіз успішності групи
  12. • Автоматизований облік надходження, зберігання і ...
  13. • База даних по приватних підприємствах регіону
  14. • Автоматизація обліку та аналізу матеріальних ресурсів ...
  15. • Автоматизована реєстрація і облік автомобілей
  16. • Розробка програми Sierpins, яка реалізує побудову ...
  17. • Аналіз теоретичної бази інтерполювання функції
  18. • Проектування геометрії косозубих торцевих фрез з ...
  19. • Модель дослідження стійкості та якості перехідних ...
Рефетека ру refoteka@gmail.com