я цикл проходження по рядку, то виведемо A [i] на екран. Далі циклічно проглядаються всі елементи масиву A, кожен з них записується в рядок st і змінної flag присвоюємо true. Після цього починаємо порівнювати всі елементи поточного слова з символом введеним з клавіатури. Як тільки знайдемо перше таке слово, змінної flag присвоюємо false. Далі якщо flag = true, то min: = length (st) і index: = i, а якщо ні, то переходимо до наступного слова в масиві А. У блоках перевіряється, якщо введеного символу в ньому немає, то таке слово виводиться на екран і його довжина порівнюється з мінімальною. Якщо вона менше min, то переписуються значення min і index. Таким чином ми знайшли слово мінімальної довжини і в блоці виводимо саме це слово і його довжину. Після чого програма завершується. br/>
4.5 Лістинг програми
;, n, index, j, min: integer;, slovo, sim: string;: array [1.100] of string;: boolean; ('Введіть виключає слово символ:'); (sim ); ('Введітестроку:'); (st);: = 1; slovo: =''; n: = 0; (i <= length (st)) do (st [i] <> '') then (i = length (st)) then (n); [n]: = slovo + st [i];: ='';: = slovo + st [i]; (i <> 1) and (st [i] = '') and (st [i-1] <> '') then (n); [n]: = slovo;: ='';; (i);;; ('Слова: '); i: = 1 to n do (A [i]); i: = 1 to n do: = A [i];: = true; j: = 1 to length (st) do [j] = sim then: = false;;;; flag = true then: = length (st);: = i;;;;; ('Словабеззаданногосімвола:'); i: = 1 to n do: = A [i];: = true; j: = 1 to length (st) do [j] = sim then: = false;;;; flag = true then (st); length (st)
4.6 Інструкція з експлуатації програми
Запустити файл program4.59. pas через середовище розробки Pascal ABC, виконати. Ввести якого виключають, з слів символ і ввести рядок. br/>
4.7 Результати проведених розрахунків та їх аналіз
Логіка роботи програми докладно описана в пункті "Розробка алгоритму і його опис", тому відразу наведемо результати тестування.
В
Малюнок 4.2 - Результат роботи програми
Як видно з малюнка 4.2, на екран виводиться вся необхідна інформація, що дозволяє нам оцінити, що програма виконується правильно.
5. Рішення завдання № 5
5.1 Постановка завдання
Створити файл, що містить відомості про асортимент іграшок в магазині. Кожен запис містить поля: назва іграшки, ціна, кількість, вікові межі. На екран і у окремий файл вивести: назви іграшок, які підходять дітям від 3 до 5 лет; вартість найдорожчої ігра...
