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

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('Строка в обратном порядке слов');