Виконайте алгоритм і запишіть у зошит хід його виконання: 1. Задумати два цілих числа.
2. Обчислити суму задуманих чисел.
3. Перевірити «Знайдена сума більша за 30?».
4. Якщо істина, то повідомити «Більша» і виконати команду 8, якщо хиба, то
виконати команду 5.
5. Перевірити «Знайдена сума менша ніж 30?».
6. Якщо істина, то повідомити «Менша» і виконати команду 8, якщо хиба, то
виконати команду 7.
7. Повідомити «Дорівнює».
8. Закінчити виконання алгоритму.
1
Serial.write ()
Записывает двоичные данные в последовательный порт. Эти данные отправляются в виде байта или серии байтов; чтобы отправить символы, представляющие цифры номера, используйте вместо этого функцию print ().
Serial.print ()
Печатает данные на последовательный порт в виде удобочитаемого текста ASCII.
2
Тег <input> является одним из разносторонних элементов формы и позволяет создавать разные элементы интерфейса и обеспечить взаимодействие с пользователем.
Инструкция read предназначена для ввода с клавиатуры значений переменных (исходных данных). ... Программа приостанавливает свою работу и ждет, пока на клавиатуре будут набраны нужные данные и нажата клавиша <Enter>.
3
Системный вызов close - это системный вызов, используемый ядром для закрытия файлового дескриптора. Для большинства файловых систем программа завершает доступ к файлу в файловой системе, используя системный вызов close. Это очищает файловые буферы, обновляет метаданные файлов, которые могут включать в себя индикатор конца файла в данных; освобождает ресурсы, связанные с файлом (включая дескриптор файла), и обновляет общесистемную таблицу используемых файлов. Некоторые языки программирования поддерживают структуру данных файлов, открываемых их библиотекой времени выполнения, и могут закрыться при завершении программы. Эта практика известна как инициализация получения ресурсов (RAII). Некоторые операционные системы будут вызывать закрытие файлов, хранящихся в программе, если она завершается. Некоторые операционные системы вызывают системный вызов close как часть восстановления операционной системы в результате сбоя системы
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(10,10,20); a.Println;
Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum);
a.Transform(x->x-5); a.Println
end.
Тестовое решение
14 17 12 17 20 11 13 18 19 20
Сумма кубов 46517
9 12 7 12 15 6 8 13 14 15
2. "Школьный вариант"
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
a:array[1..10] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 10 do begin
a[i]:=Random(11)+10;
Write(a[i],' ');
s:=s+a[i]*sqr(a[i])
end;
Writeln;
Writeln('Сумма кубов ',s);
for i:=1 to 10 do begin
a[i]:=a[i]-5;
Write(a[i],' ')
end;
Writeln
end.