Контрольная работа: Программирование решения задач

ReadLn;

end.

Рис. 5. Результаты работы программы для задачи 5

Задача №6

Задана матрица расстояний между городами. Написать программу, указывающую все города, расстояния от которых до других городов не больше А.

Решение

program Project6;

//uses SysUtils;

const

a = 20;

var

arr : array [1..5, 1..5] of byte;

i, j : byte;

begin

randomize;

for i := 1 to 5 do

for j := 1 to 5 do arr[i, j] := 0;

for i := 2 to 5 do

for j := 1 to i-1 do arr[i, j] := random(50)+1;

for i := 1 to 5 do

for j := 1 to 5 do if (arr[i, j] <= a) and (arr[i, j]<>0) then writeln(i, ' ', j, ' ', arr[i, j]);

ReadLn;

end.

Рис. 6. Результаты работы программы для задачи 6

Задача №7

Удалить ведущие и конечные пробелы в строке.

Решение

1. Анализ введенных с клавиатуры исходных данных

2. Применение функции trim

3. Выведение условия для выхода

4. Вывод результатов

Для решения этой задачи используем строковый тип данных. Для удаления пробелов воспользуемся функцией trim(удаляет все ведущие и конечные пробелы). Запишемрезультат.

program Project7;

{$APPTYPE CONSOLE}