В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
belka20055
belka20055
23.05.2022 01:42 •  Информатика

Практическая работа Тема: «Базовые структуры алгоритмов: пикл Пока»
На псенокомах
В блок-схеме
Теоретическая справка:
Определение: пикл типа
«Пока»
предписывает,
выполнять тело цикла до
тех пор пока выполняется
условие, записанное после
слова Пока,
Условия
и По условие
(комаиды тела цикла)
ru
Teo
Задание: Переписав условия задач, составьте алгоритмы их решения на языке
псевдокодов и блок схемы.
Вариант 8
1) В первый день рабочий изготовил 100 деталей. В следующие дни он
увеличивал дневной выпуск деталей на 3 штуки по сравнению с предыдущим
днем. За сколько дней он изготовит 3000 деталей.
2) Вычислять периметры квадратов со стороной, произвольно вводимой
с клавиатуры до тех пор, пока не будет введено значение меньше или равное
единицы.

Показать ответ
Ответ:
Rafaelnodat1
Rafaelnodat1
21.04.2023 01:35
Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then    writeln('yes')  else writeln('no'); if num_sash=pri1 then    writeln('yes')  else writeln('no'); if mes_eg=1 then    writeln('egor-high')else  writeln('egor-low'); if mes_sash=1 then    writeln('sasha-high')else  writeln('sasha-low'); end.
0,0(0 оценок)
Ответ:
evaklchn
evaklchn
18.01.2021 19:12
№1

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.

№2

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.

№3

var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота