Ковельський промислов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.