Наглядно изображения объектов можно изобразить разными
Например, можно изобразить объекты в виде схемы, в которой вершины - объекты, а отношения между ними - линии. Пример такого изображения - на картинке, на которой показано, кто из друзей на кого подписан в социальной сети.
Var x,y : real; begin writeln ('Введите первое число'); readln (x); writeln ('Введите второе число'); readln (y); while x=y do begin writeln ('Вы ввели равные числа. По условиям задачи числа не должны быть равны. Попробуйте еще раз'); writeln ('Введите первое число'); readln (x); writeln ('Введите второе число'); readln (y); end; if x<y then x:=x-4 else y:=y-4; writeln ('Первое число ',x,' Второе число ',y); end.
// дан массив Q(15) , заполненный числами [0,100].Найдите количество чётных чисел и их сумму Var Q : array [1..15] of byte; i,n : byte; s : word; begin randomize; for i:=1 to 15 do begin Q[i]:=random(101); //заполняем массив случайными числами end; for i:=1 to 15 do begin if (Q[i]mod 2=0) then //определяем четные чиcла begin n:=n+1; //высчитываем их количество s:=s+Q[i]; //и сумму end; end; writeln ('в данном массиве ',n,' четных чисел. Их сумма равна ',s) end.
Первый и второй циклы можно объединить (я так делал для наглядности)
Наглядно изображения объектов можно изобразить разными
Например, можно изобразить объекты в виде схемы, в которой вершины - объекты, а отношения между ними - линии. Пример такого изображения - на картинке, на которой показано, кто из друзей на кого подписан в социальной сети.