Ковельський промисловo-економічний коледж
ЛНТУ
З спеціальності «Обслуговування програмних систем і комплексів»
Лабораторна робота № 5
По дисципліні “Алгоритмізація і Програмування”
Мета роботи: виробити навички розв’язувати з використанням рядкових змінних.
Постановка завдання:
1. Вивчити способи вводу та виводу даних
2. Навчитися оброблювати данні в мові програмування Pascal
Завдання до роботи: Скласти програму для розв’язання задачі. Дано послідовність, що містить від 1 до 30 слів, у кожному з яких від 1 до 5 рядкових латинських букв; між сусідніми словами – кома, за останнім словом – крапка.
Надрукувати всі слова, попередньо в кожній парі літер у слові поміняти їх місцями.
Блок Схема
Хід виконання роботи
Код програми:
Program lab5;
var a:array[1..30] of string;
s,d:string;
i,j:integer;
begin
write (‘vvedit strichku’);
readln(s);
for i:=1 to 29 do
begin
j:=pos(‘,’,s)-1;
a[i]:=copy(s,1,j);
for i:=1 to 30 do
begin
if length(a[i])=1 then write (a[i],’ ‘);
if length(a[i])=2 then begin d:=copy(a[i],1,1); delete(a[i],1,1);
insert(d,a[i],2); write(a[i],’ ‘) end;
if length(a[i])=3 then begin d:=copy(a[i],1,1); delete(a[i],1,1);
insert(d,a[i],2); write(a[i],’ ‘) end;
if length(a[i])=4 then begin d:=copy(a[i],1,1); delete(a[i],1,1);
insert(d,a[i],2); d:=copy(a[i],3,1); delete (a[i],3,1);
insert(d, a[i],4); write(a[i],’ ‘) end;
if length (a[i])=5 then begin d:=copy (a[i],1,1); delete (a[i],1,1);
insert(d, a[i],2); d:=copy(a[i],3,1); delete(a[i],3,1);
insert(d, a[i],4); write(a[i], ‘ ‘) end;
end;
end.
