Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
DevioLab
CRYPTO TRADING AUTOMATION
LIVE
AUTOMATED CRYPTO TRADING • BINANCE
Автоматизуйте свій
криптопортфель
Торгові боти DevioLab аналізують крипторинок,
автоматично відкривають і закривають позиції
та керують вашим портфелем на Binance 24/7.
CRYPTO
80 Bots
BINANCE
Spot Trading
TRADING
24 / 7
deviolab.com
Інформація про навчальний заклад
ВУЗ:
Інші
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2018
Тип роботи:
Лабораторна робота
Предмет:
Алгоритмізація та програмування
Частина тексту файла (без зображень, графіків і формул):
Ковельський промислов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.
13.06.2018 20:58
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора