1) на что мы используем Интернет (контакты, поиск информации для обучения, поиск инфы для жизни и т. д. ) 2) чем заменить все эти вещи без Инета (телефон и письма, учебники, и т. д.) 3) в чём разные хуже или лучше (напр, по телефону можно так же быстро поговорить, как и через Инет, но нельзя быстро переслать печатный текст. Бумажное письмо очень приятно писать и получать, но оно идёт слишком медленно, контакт по интернету самый быстрый, но немного теряется тепло живого общения) и так по всем пунктам. 4) большие области на нашей планете, где нет Инета или он плохой (медленный) и редко встречается (Африка). 5) в некоторых восточных странах Инет регулируется на государственном уровне (Китай, Корея) 5) вывод - в принципе, без Инета прожить можно, но во многих областях без него гораздо хуже и медленнее.
1. Ложные утверждения:
- (3>2) and (5>6) = true (Это утверждение ложное, потому что оба сравнения являются ложными, следовательно результат должен быть false)
- mod (5+3)=2 (Это утверждение ложное, потому что оно указывает на вычисление остатка от деления, но не указано, на что нужно делить)
- 2 div 3 =1 (Это утверждение ложное, потому что оператор div означает целочисленное деление и результатом будет 0, т.к. 2 меньше 3)
2. Чтобы получить случайное число в интервале (0, х], используется функция языка Паскаль: random(x)
3. Переменная а:=х mod 4 = 0 принимает истинное значение, если x=16. (Остаток от деления числа на 4 равен 0, только когда число само делится на 4 без остатка)
4. Оператор Readln(a) предназначен для ввода данных с клавиатуры.
5. Результат работы программы: a := - 6; b := - 5; a := a + 2 * b; b := a; Writeln(a, b) будет - 16, 0.
6. Функция SQRT вычисляет квадратный корень числа.
7. Число, которое будет выведено на экран при Writeln(-50 mod 5) равно 0. (Остаток от деления -50 на 5 равен 0)
8. Функция ABS вычисляет модуль числа.
9. Раздел описаний начинается со служебного слова Var.
10. Значение выражения -ABS(-SQRT(4)) равно -2. (Сначала вычисляется значение квадратного корня от 4, что дает 2, затем берется модуль этого значения, что также дает 2, но так как исходный выражение начинается с "-", результат будет -2)
Очень рад, что вы интересуетесь программированием! Буду рад помочь вам решить эту задачу на языке программирования Паскаль.
Для начала, давайте разобьем эту задачу на несколько подзадач и решим их поочередно.
1. Запись N действительных чисел в файл.
Для этого нам нужно создать переменную типа file, открыть файл для записи и попросить пользователя ввести N чисел. Затем мы будем записывать каждое из этих чисел в файл, каждое на отдельной строке.
Пример кода:
```pascal
program writeNumbersToFile;
var
fileNumbers: text;
number, N, i: integer;
begin
assign(fileNumbers, 'numbers.txt'); // Указываем имя файла, в котором будут храниться числа
rewrite(fileNumbers); // Открываем файл для записи, все предыдущие данные будут стерты
writeln('Введите количество чисел (N): ');
readln(N);
for i := 1 to N do
begin
writeln('Введите число ', i, ': ');
readln(number);
writeln(fileNumbers, number); // Записываем число в файл
end;
close(fileNumbers); // Закрываем файл
end.
```
2. Поиск среднего арифметического положительных чисел в файле.
Для решения этой задачи нам нужно открыть файл для чтения, прочитать каждое число из файла и найти среднее арифметическое положительных чисел. Для этого мы будем суммировать все положительные числа и делить полученную сумму на их количество.
Пример кода:
```pascal
program calculateAverage;
var
fileNumbers: text;
number, sum: real;
count: integer;
begin
assign(fileNumbers, 'numbers.txt');
reset(fileNumbers); // Открываем файл только для чтения
sum := 0;
count := 0;
while not eof(fileNumbers) do
begin
readln(fileNumbers, number);
if number > 0 then
begin
sum := sum + number;
count := count + 1;
end;
end;
writeln('Среднее арифметическое положительных чисел: ', sum / count);
close(fileNumbers);
end.
```
3. Нахождение суммы чисел, предшествующих первому отрицательному числу в файле.
По аналогии с предыдущей задачей, мы откроем файл для чтения, прочитаем числа по очереди и будем суммировать их до тех пор, пока не встретим первое отрицательное число.
Пример кода:
```pascal
program calculateSum;
var
fileNumbers: text;
number, sum: real;
foundNegativeNumber: boolean;
begin
assign(fileNumbers, 'numbers.txt');
reset(fileNumbers);
sum := 0;
foundNegativeNumber := false;
while not eof(fileNumbers) and not foundNegativeNumber do
begin
readln(fileNumbers, number);
if number >= 0 then
begin
sum := sum + number;
end
else
begin
foundNegativeNumber := true;
end;
end;
Это решение состоит из 4 отдельных программ, каждая из которых выполняет свою часть задания. Перед запуском каждой программы обязательно сохраните введенные вами числа в файле 'numbers.txt' (напишите каждое число с новой строки).
Надеюсь, что это подробное пособие помогло вам понять решение этой задачи. Если у вас возникнут какие-либо вопросы или затруднения, не стесняйтесь обращаться ко мне за помощью. Удачи в изучении программирования!
