М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vladognev2014
vladognev2014
29.12.2021 02:25 •  Информатика

Экранные меню и циклы

заключается в выявлении некоторой проблемы (и её предпосылок) в заданной предметной области, и поиске ее решения с использованием программных средств.

✅требования к программе:

⃣программа должна содержать трёхуровневое иерархическое меню (см. схему)

⃣в программе должны быть расчёты (начиная со 2 уровня пользователь должен иметь возможность не только выбрать дальнейшее действие, но и рассчитать некоторые промежуточные параметры. желательно, если расчёты будут являться логическим продолжением этапов решения и не будут простыми (например, в одно действие операции сложения))

⃣в коде программы обязательно использовать следующие операторы (каждый минимум один раз! ):

: =

writeln

readln

if

case

for

while

repeat

⃣в программе должен быть предусмотрен переход на предыдущий уровень

⃣ в любой момент времени у пользователя должна быть возможность выйти из программы совсем

⃣эргономичный, дружественный интерфейс пользователя

⏫ работа над проектом должна быть разделена на следующие этапы:

✅сформулировать постановку

✅описать предметную область

✅составить модель решения

✅составить алгоритм решения (не программы)

✅написать код программы по заданному алгоритму.

✅проанализировать полученные результаты, сделать вывод

👇
Ответ:
P4k3T
P4k3T
29.12.2021
1.
program z_1;
var i,s;intger; 
a:array [1..50] of integer;
begin
for i:=1 to 50 do
begin
readln(a[i]);
s:=s+a[i];
end;
writeln(s);
end.

2.
program z_2;
var c1,c2,pp:integer;
begin
readln(c1);
readln(c2);
pp:=round((c1*c2)/2);//полупроизведение двух чисел
writeln(pp);
end.

3.
program z_3;
var k,v,s:integer;
begin
readln(k);//Стоимость книги
readln(v);//Внесено денег
if k=v then

else
if k<v then
writeln('Возьмите сдачу : ',v-k)
else
writeln('Недостаточно средств : ',k-v);
end.
4,5(66 оценок)
Ответ:
sgerbst
sgerbst
29.12.2021

program qq;

uses crt;

var a,x,b:real;

begin

crlscr;

writeln('введите а и b ');

readn(a,b);

if a=0 then

if b=0 then writeln('x любое число')

else writeln('решений нет ')

else begin

x:=(-b/a);

writeln (x);

end;

readln

end.

 

 

сорри за то что все в куче

4,4(82 оценок)
Ответ:
elf35
elf35
29.12.2021

ответ:

хоть знала бы сказала

4,6(83 оценок)
Ответ:
Vla9D
Vla9D
29.12.2021
Смотри фото ................

Составить алгоритмы решения с блок-схем, используя конструкцию циклического алгоритма. 1. найти прои
4,7(24 оценок)
Открыть все ответы
Ответ:
annaegorova4
annaegorova4
29.12.2021

Ло́гика (др.-греч. λογική — «наука о правильном мышлении к рассуждению» от др.-греч. λόγος — «логос», «рассуждение», «мысль», «разум», «смысл») — раздел философии, нормативная наука о формах, методах и законах интеллектуальной познавательной деятельности, формализуемых на логическом языке.

Электронная таблица (англ. spreadsheet)— компьютерная программа, позволяющая проводить вычисления с данными, представленными в виде двумерных массивов, имитирующих бумажные таблицы. Некоторые программы организуют данные в «листы», предлагая, таким образом, третье измерение.

1101*101=1000001

Объяснение:

4,6(76 оценок)
Ответ:
aptemacko
aptemacko
29.12.2021
Var 
a: array[1..n] of integer; 
k, i, m: byte; 
min: integer;

begin 
Write('Razmer massiva: '); 
Readln(k); 
if (k < 0) or (k > 100) then     
begin       
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');       
Readln;       
Exit;     
end; 
Randomize; 
Writeln('Ishodn. massiv: '); 
for i:=1 to k do     
begin       
a[i]:=Random(101)-50;       
write(a[i]:4);     
end; 
min:=a[1]; 
for i:=2 to k do   
if a[i] < min then       
begin         
min:=a[i];         
m:=i;       
end; 
a[m] := a[1]; 
a[1] := min; 
Writeln; 
Writeln('Min element = ', min:4, ' v posicii ', m:3); 
Writeln('Rezult. massiv: '); 
for i:=1 to k do     
write(a[i]:4); 
readln;
end.
4,5(77 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ