Составьте программу, которая проверяет, является ли человек заданного возраста школьником, если возраст школьника- от 6 до 17лет, и выводит на экран соответствующие сообщение: является либо не является

Var A:integer;
Begin
WriteLn('Введи возраст человека');
ReadLn(A);
if (A>6)and(A<17) then Write('Является школьником')
else WriteLn('Не является школьником')
End.

ответ:Пример 1. Составить алгоритм запуска программы Paint в ОС Windows 7.

Вспомним из курса информатики 5 класса порядок действий для запуска программы Paint.

Войти в меню «Пуск».

Войти в пункт «Все программы».

Войти в пункт «Стандартные».

Выбрать программу «Paint».

Данный алгоритм в виде блок-схемы имеет следующий вид:

 

Рис. 1. Блок-схема к примеру 1.

 

Составление алгоритмов с ветвлениями

Рассмотрим пример на составление алгоритмов с ветвлениями.

Пример 2. Составьте алгоритм для перехода дороги на светофоре.

Рис. 2. Светофор (Источник).

Возможны следующие ситуации: в тот момент, когда мы подошли к дороге горел красный или зелёный свет. Если горел зелёный свет, то можно переходить дорогу. Если же горел красный свет, то необходимо дождаться зелёного – и уже тогда переходить дорогу.

Таким образом, алгоритм имеет следующий вид:

Подойти к светофору.

Посмотреть на его свет.

Если горит зелёный, то перейти дорогу.

Если горит красный, то подождать, пока загорится зелёный, и уже тогда перейти дорогу.

Блок-схема данного алгоритма имеет вид:

Рис. 3. Блок-схема к примеру 2.

 

Составление циклических алгоритмов

Рассмотрим пример на составление циклического алгоритма. Мы уже несколько раз обсуждали перевод чисел из десятичной системы в двоичную. Теперь пришло время чётко сформулировать этот алгоритм.

Напомним, что его принцип состоит в делении числа на 2 и записей остатков, получающихся при делении.

Пример 3. Составить алгоритм перевода чисел из десятичной системы в двоичную.

То есть, алгоритм будет выглядеть так:

Если число равно 0 или 1, то это и будет его двоичное представление.

Если число больше 1, то мы делим его на 2.

Полученный остаток от деления записываем в последний разряд двоичного представления числа.

Если полученное частное равно 1, то его дописываем в первый разряд двоичного представления числа и прекращаем вычисления.

Если же полученное частное больше 1, то мы заменяем исходное число на него и возвращаемся в пункт 2).

Объяснение:

Объяснение:

var a,b,x,y,z:real;

begin;

clrscr;

write('vvedite dlinu kirpicha ');

readln(x);

write('vvedite shirinu kirpicha ');

readln(y);

write('vvedite visotu kirpicha ');

readln(z);

write('vvedite dlinu otverstiya ');

readln(a);

write('vvedite shirinu otverstiya ');

readln(b);

if (x<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (x<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else

write('kirpich ne vmeshaetsya v otverstie') end end end end end;

 

 

end.