1.Выберите основные данные, которые относятся к языку программирования Pascal.Выберите несколько из 5 вариантов ответа:
1) Назван в честь Блеза Бейсика.
2) Появился в 1965 г.
3) Наибольшее рас получил с появлением микроЭВМ и персональных компьютеров.
4) Был создан в 1968 г.
5) Создатель языка – Никлаус Вирт.
2.Что может входить в алфавит языка Pascal?Выберите несколько из 6 вариантов ответа:
1) Русские прописные буквы. 4) Русские строчные буквы.
2) Латинские строчные буквы. 5) Специальные символы.
3) Арабские цифры. 6) Латинские прописные буквы.
3.Из каких элементов состоит структура программы языка Pascal?
1) Тело программы. 4) Точка.
2) Раздел описания. 5) Раздел операторов.
3) Заголовок программы.
4.Соотнесите определения с их значениями.
1) Алфавит – это... __ цепочки символов, которые рассматриваются как
единые смысловые элементы с фиксированным значение.
2) Синтаксис – это... __ смысловое содержание языковой конструкции.
3) Семантика – это... __ составные символы, которые нельзя разрывать
4) Неделимые элементы – это... __ правописание языковых конструкций.
5) Служебные слова – это… __ множество символов, допустимых в записи
текстов программ.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел.
Вот. Так что табличные модели, несомненно, лучше словесных.
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.