В московской Библиотеке имени Некрасова в электронной таблице хранится список поэтов Серебряного века. Ниже приведены первые строки таблицы.
Каждая строка таблицы содержит запись об одном поэте.
В столбце A записана фамилия, в столбце B – имя, в столбце C – отчество, в столбце D – год рождения, в столбце Е – год смерти.
Всего в электронную таблицу были занесены данные по 150 поэтам Серебряного века в алфавитном порядке.
Выполните задание.
Откройте файл с данной электронной таблицей task19-91.xls. На основании данных, содержащихся в этой таблице, ответьте на два во Определите количество поэтов, родившихся в 1889 году. ответ на этот во запишите в ячейку H2 таблицы.
2. Определите в процентах, сколько поэтов, умерших позже 1940 года, носили имя Сергей. ответ на этот во с точностью не менее двух знаков после запятой запишите в ячейку H3 таблицы.
Полученную таблицу необходимо сохранить и сдать на проверку.
Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці
var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;
begin
P:=1;
For i:=1 to 4 do
For j:=1 to 6 do
begin
Write('Введіть значення елемента масиву ');
Read(Tabl[i,j]); //заповнення масиву цілими числами
end;
For i:= 1 to 4 do
P:= P * Tabl[i,2]; //умножение элементов второго столбца
writeln('Произведение элементов второго столбца= ',P);//виведення відповіді
end. //Кінець програми
Объяснение:
Изменено имя программы и переменной (чтобы не путаться)
Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется
Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце
Комментарии изменены, где необходимо, но на русском
Линейными называются программы, состоящие из простых команд (операторов).
Простыми командами (простыми указаниями алгоритма) называются команды, которые не используют условия при своем исполнении. К числу простых операторов относятся команды (операторы) присваивания, ввода и вывода, вызова вс алгоритма (подпрограммы).Чаще для определения начальных значений удобнее пользоваться командой ввода, а не командой присваивания, потому что при необходимости использования программы с другими исходными данными не приходится менять текст программы.
Если в записи алгоритма стоит команда ввода, то его выполнение прерывается и управление передается программе, которая может осуществить ввод данных. После ввода данных управление передается следующей команде алгоритма.
На языке Паскаль процедура ввода данных имеет вид:
READ (список ввода);
READLN (список ввода).
При выполнении процедур READ и READLN программа переходит в состояние ожидания ввода данных. Если в списке ввода указано несколько переменных, то их можно вводить в одной строке, отделяя друг от друга символом «пробел», или в отдельных строках (в столбик), завершая ввод каждого значения клавишей Enter.
Оператор READLN отличается от оператора READ тем, что после введения необходимого числа данных курсор перемещается на следующую строку.
Если ввод данных осуществляется с клавиатуры, то список ввода - это список переменных, т.е. последовательность имен переменных, разделенных запятыми. Если ввод осуществляется из файла, то в списке ввода первая переменная - файловая, связана с именем реального файла.
Стандартные процедуры вывода результатов вычислений используются для вывода их значений на экран, принтер или в файл. На языке Паскаль процедуры вывода имеют вид:
WRITE (список вывода);
WRITELN (список вывода).Различие между WRITE и WRITELN заключается в том, что вывод оператором WRITE начинается с текущего местоположения курсора на экране монитора и курсор после окончания вывода остается в той же строке. Оператор WRITELN выводит значения с текущего места, а затем курсор перемещается на следующую строку. Можно использовать оператор WRITELN без списка вывода для перемещения курсора на новую строку.