1. опишите переменные, необходимые для вычисления площади треугольника по его трём сторонам, и запишите оператор, обеспечивающий ввод необходимых исходных данных. 2. что является результатом выполнения оператора? a) write (а); б) write (' а ') ; в) write (' а= ', а) 3. какой тип имеет переменная, если после выполнения оператора write (f) на экран было выведено следующее число? а) 125 б) 1.25е+2 4. каким образом можно вывести на экран вещественное число в формате с фиксированной запятой? 5. дан фрагмент программы: read (a); read (b); c: =a+b; write (a, b); write (c) его, сократив число операторов ввода и вывода. 6. дан фрагмент программы: а : =10; b: =a+1: a: =b-a; write (а, b) какие числа будут выведены на экран компьютера? 7. напишите программу, которая вычисляет площадь и периметр прямоугольника по двум его сторонам
Ответы
Program znanija_com; const numarray = 3; type tarray = array[1..numarray] of integer; var arr : tarray; i, j, temp : integer; begin for i: =1 to numarray do begin writeln('введите элемент массива ', i); readln(arr[i]); end; for i: =1 to numarray do begin for j: =i+1 to numarray do begin if arr[i] = arr[j] then writeln('значение элемента ', i, ' совпадает со значением эелемента ', j); end; end; readln(); end.
Program znanija_com; const n = 3; m = 3; type mas = array[1..n, 1..m] of real; var arr : mas; i,j : integer; summ, max : real; begin for i: =1 to n do begin for j: =1 to m do begin writeln('введите элемент массива [', i, ',', j, ']'); readln(arr[i, j]); end; end; for i: =1 to m do begin max: =arr[1, i]; for j: =2 to n do begin if arr[i,j]> max then max: =arr[i,j]; end; summ: =summ+max; end; writeln('сумма равна ', summ); readln(); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Акпаратты енгузу курылгысы
Автор: nailboxru
12.288битов перевести в байты и килобайты
Автор: Arsen0708
1. постройте схему к логическому выражению F=(A&B&C)vD
Автор: cafemgimo
Записать четверичное число 33.22 в десятичном виде
Автор: VladimirovnaKashintsev1151
