Задача 3. Запишем в программе часть диалога с пользователем о сохранении файла. Используем услови
операторы и операторы сравнения:
ans = input СВы хотите сохранить файл? (да/нет) )
ifans = да":
print СВыберите папку для сохранения)
elif ans == нет:
print (Данные будут утеряны для дальнейшего использования')
else:
print (Орибка. Такого варианта ответа нет!)
Результат вывода будет зависеть от того, какой ответ был выбран: «да» или
«нет»:
Вариант 1:
Вариант 2:
Вы хотите сохранить файл? (да/нет) нет
Вы хотите сохранить файл? (да/нет) да
Данные будут утеряны для дальнейше-
Выберите папку для сохранения
го использования
CS
В1
ку
по
van arruLXADAVTUVA
С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники. Многие даже представить себе не могут, что будут делать, если, например, забудут дома телефон, это приравнивается к трагедии. Велико число тех, кто просто убивает время в социальных сетях, живое общение заменяется набором букв на компьютере, а жесты и мимика – смайликами. Да, это хорошо для тех, кто находится далеко друг от друга, или в силу каких – то других причин просто физически не могут увидеться. Но мы злоупотребляем такими благами, так как, живя по соседству – общаемся посредством сети и устройств. Люди просто перестали ходить в гости и просто видеться. То, насколько мы будем зависимы от компьютера – определяем мы сами. Человек сам определяет, на что тратить время, как проживать жизнь. И если использовать ИТ и другие блага только в полезных целях и в меру – жить станет легче не только нам, но и будущим поколениям, и им не придется страдать от нашей невнимательности и лени.
Объяснение:
const
handsfree = true;
var
a: array[1..100, 1..100] of real;
max, min: real;
sum, product: real;
i, j, m, n, k: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
{минимумы и максимумы}
max := a[1, 1];
min := a[1, 1];
for i := 1 to m do
for j := 1 to n do
begin
if max < a[i, j] then max := a[i, j];
if min > a[i, j] then min := a[i, j];
end;
writeln('max = ', max);
writeln('min = ', min);
{сумма, произведение, пр. агригаты}
sum := 0;
product := 1;
for i := 1 to m do
for j := 1 to n do
if a[i, j] <> 0 then {если нужен фильтр}
begin
sum := sum + a[i, j];
product := product * a[i, j];
k := k + 1;
end;
writeln('sum = ', sum);
writeln('product = ', product);
writeln('average = ', sum / (n * m));
writeln('average (selected) = ', sum / k);
end.