Пять треугольников
Смотри картинку
Объяснение:
Сначала перо находится в точке (0,0)
Повторяем цикл пять раз
Сначала рисуем алгоритм фрагмент, потом сдвигаемся на точку, которая отличается от текущей на 2 деления по оси х и 0 делений по оси у. (Движемся вправо по горизонтали)
Алгоритм фрагмент:
Опускаем перо
Рисуем линию к точке, которая отличается от текущей на 0 делений по оси х и 4 деления по оси у. (Движемся вверх по вертикали)
Рисуем линию к точке, которая отличается от текущей на 1 деление по оси х и -2 деления по оси у. (Движемся по диагонали вправо вниз)
Рисуем линию к точке, которая отличается от текущей на -1 деление по оси х и -2 деления по оси у. (Движемся по диагонали влево вниз)
Поднимаем перо
Задача
Из двух чисел с разной четностью вывести на экран нечетное число.
Решение
Описание переменных:
a, b - данные числа
Алгоритм решения задачи:
Пользователь вводит четное и нечетное число. Последовательность их ввода может быть любой. Таким образом, неизвестно какая из двух переменных (a или b) содержит нечетное число. Чтобы выяснить это, используется конструкция условного ветвления (if-else), а также операция нахождения остатка от целочисленного деления (mod).
Если результат нахождения остатка от деления значения переменной a на 2 равен нулю, значит, эта переменная содержит четное число. Тогда нечетное число находится в переменной b и его следует вывести на экран. Если же результат нахождения остатка не равен нулю, значит, a содержит нечетное число. Оно выводится в ветке else.
Программа на языке Паскаль:
var a, b: integer;
begin
writeln('Введите одно четное и одно нечетное числа');
readln(a, b);
if a mod 2 = 0 then
writeln(b,' - нечетное число')
else
writeln(a,' - нечетное число');
end.
Примеры работы программы:
Введите одно четное и одно нечетное числа
4 5
5 - нечетное число
Введите одно четное и одно нечетное числа
5 4
5 - нечетное число
Примечания:
В данном случае предполагается, что пользователь осуществляет ввод правильно, т. е. всегда вводит одно четное и одно нечетное число. Если же ввод был некорректный (два четных или два нечетных числа), то программа будет работать неправильно. В случае двух четных чисел программа выведет второе. В случае двух нечетных - первое введенное. Чтобы избежать подобных недоразумений, программу можно усовершенствовать следующим образом:
var a, b: integer;
begin
writeln('Введите одно четное и одно нечетное числа');
readln(a, b);
if (a mod 2 = 0) and (b mod 2 <> 0) then
writeln(b,' - нечетное число')
else
if (a mod 2 <> 0) and (b mod 2 = 0) then
writeln(a,' - нечетное число')
else
writeln('Некорректный ввод');
end.
В данном случае в заголовках условного оператора проверяются оба числа: одно - на четность, другое - на нечетность. Если оба будут четные, или оба будут нечетные, то сработает тело вложенного оператора else.
a: Array[1..30,1..30] of Integer;
n,min, max, i,j,s: Integer;
BEGIN
writeln('n=');
readln(n);
Randomize;
Writeln('sluciayniy massiv:');
For i:=1 to n do
begin
For j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:5);
end;
Writeln;
end;
s:=0;
min:= a[1,1];
max:= a[1,1];
for i:= 1 to n do
for j:= 1 to n do
if a[i,j]<min then
min := a[i,j];
for i:= 1 to n do
for j:= 1 to n do
if a[i,j]> max then
max:= a [i,j];
for i:=1 to n do
for j:= 1 to n do
if i=j then
s:= s+a[i,j];
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s);
readln;
end.
Var
a: Array[1..100,1..100] of Integer;
n,min, max, i,j,s:Integer;
BEGIN
writeln('n=');
readln(n);
Writeln('vvedite massiv:');
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
Writeln;
end;
s:=0;
min:= a[1,1];
max:= a[1,1];
for i:= 1 to n do
for j:= 1 to n do
if a[i,j]<min then min := a[i,j]; {поиск минимального элемента }
for i:= 1 to n do
for j:= 1 to n do
if a[i,j]> max then max:= a [i,j]; {поиск максимального элемента}
for i:=1 to n do
for j:= 1 to n do
if i=j then s:= s+a[i,j]; { поиск элементов главной диагонали и нахождение их суммы}
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s);
readln;
end.