Задача. Магазин обслужил за день 200 покупателей, каждый из которых потратил на покупки не более 1000 рублей. Посчитать дневную прибыль магазина и сумму среднего потребительского чека.
Сколько переменных нужно? (200)
Заполним массив случайными числами, используя диапазон от 1 до? (1000)
Какие алгоритмы будем использовать при решении задачи? (Нахождения суммы и среднего арифметического)
Сколько покупателей, у которых сумма чека больше среднего?
Чек каждого покупателя необходимо сравнить с суммой среднего чека. Для этого необходимо использовать цикл. (записать на доске: if a[i]sr then k:=k+1;)
За компьютерами составляем программу.
program qq;
const n=200;
var a: array[1..n] of integer;
k,s,i:integer;
begin
s:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(1001)+1;
s:=s+a[i];
end;
for i:=1 to n do
if a[i]s/200
then k:=k+1;
writeln('Дневная прибыль магазина ',s);
writeln('Сумма среднего потребительского чека ',s/200);
writeln('У ',k,' покупателей сумма чека больше среднего');
end.
Внести изменения в программу: Есть ли покупатель, у которого сумма чека 555 рублей.
k:= 0;
for i:=1 to N do
if A[i] = 550 then k:= k+1;
if k 0 then write('Есть') else write('Не нашли!');
Есть необходимость просматривать весь массив? Нет, если нашли первого покупателя можно выйти из цикла? Как? break
k:= 0;
for i:=1 to N do
if A[i] = 555 then begin
k:= i;
break
end;
if k0 then write('Нашли') else write('Не нашли!');
Задача. Магазин обслужил за день 200 покупателей, каждый из которых потратил на покупки не более 1000 рублей. Посчитать дневную прибыль магазина и сумму среднего потребительского чека.
Сколько переменных нужно? (200)
Заполним массив случайными числами, используя диапазон от 1 до? (1000)
Какие алгоритмы будем использовать при решении задачи? (Нахождения суммы и среднего арифметического)
Сколько покупателей, у которых сумма чека больше среднего?
Чек каждого покупателя необходимо сравнить с суммой среднего чека. Для этого необходимо использовать цикл. (записать на доске: if a[i]sr then k:=k+1;)
За компьютерами составляем программу.
program qq;
const n=200;
var a: array[1..n] of integer;
k,s,i:integer;
begin
s:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(1001)+1;
s:=s+a[i];
end;
for i:=1 to n do
if a[i]s/200
then k:=k+1;
writeln('Дневная прибыль магазина ',s);
writeln('Сумма среднего потребительского чека ',s/200);
writeln('У ',k,' покупателей сумма чека больше среднего');
end.
Внести изменения в программу: Есть ли покупатель, у которого сумма чека 555 рублей.
k:= 0;
for i:=1 to N do
if A[i] = 550 then k:= k+1;
if k 0 then write('Есть') else write('Не нашли!');
Есть необходимость просматривать весь массив? Нет, если нашли первого покупателя можно выйти из цикла? Как? break
k:= 0;
for i:=1 to N do
if A[i] = 555 then begin
k:= i;
break
end;
if k0 then write('Нашли') else write('Не нашли!');
A - Неверно. Сканер - устройство ввода.
B - Верно. Клавиатура - устройство ввода.
C - Верно. Монитор - устройство вывода.
D - Неверно. Микрофон - устройство ввода.
Получаем логические переменные: A = 0, B = 1, C = 1, D = 0.
Подставим их в предложенные уравнения и посмотрим на результат (он должен быть равен истине):
d⇔c⇒¬a∨b∧d = 0⇔1⇒¬0∨1∧0 = 0⇔1⇒1 = 0⇔1 = 0 - нам не подходит
b⇒(a∧¬d)∨(c⇔¬a) = 1⇒(0∧¬0)∨(1⇔¬0) = 1⇒(0∧1)∨(1⇔1) = 1⇒0∨1 = 1⇒1 = 1 - подходит
¬(a∧d)∨(¬b⇔c⇒d) = ¬(0∧0)∨(¬1⇔1⇒0) = ¬0∨(¬1⇔0) = 1∨(0⇔0) = 1∨1 = 1 - подходит
¬a∨b⇒c⇔¬d∧¬b = ¬0∨1⇒1⇔¬0∧¬1 = 1∨1⇒1⇔1∧0 = 1⇒1⇔0 = 1⇒1⇔0 = 1⇔0 = 0 - не подходит
На скриншоте вами выбраны верные пункты