Учебно-методический комплекс дисциплины для обучающегося «Языки программирования» для специальности 5В010900 Математика

program SORT;

type x=array [1..20] of real;

var a:x;

R: real;

var m: real;

l: integer;

begin

for l:=1 to q do

if A(l) > m then

begin

end

begin

readln (n);

writeln ('вводите массив');

for i:=1 to n do

readln (A[i]);

j:=n;

begin

R:=A(k); A(k):=A(j); A(j):=R;

j:=j-1

end;

for i:=1 to n do

writeln (A[i])

end.
Упражнения:

1. 
   Написать процедуру, которая выводит на экран строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.
   
2. 
   Написать функцию, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра.
   
3. 
   Написать процедуру, который вычисляет объем и площадь поверхности параллелепипеда.
   
4. 
   Написать функцию, которая возвращает максимальное из двух целых чисел, полученных в качестве аргумента.
   
5. 
   Вычислить и запомнить количество отрицательных элементов каждого столбца для матриц А(10,10) и В(5,7).
   
6. 
   Составить программу для нахождения среднего балла группы по результатам сессии. Оценки групп сведены в матрицы А(25,5). В(23,5), С(22,5), D(24,5). Определить лучшую группу.
   
7. 
   Составить процедуру – оператор для нахождения коэффициентов многочлена, равного произведению двух многочленов степени n и m. При помощи этой процедуры вычислить коэффициенты многочлена .
   
8. 
   Даны три строки различной длины. Напечатать ту из них, где больше гласных латинских букв.
   
9. 
   Даны три слова переменной длины. Составить слово, содержащее символы-цифры, входящие в данные слова.
   
10. 
    Написать функцию present, которая возвращает процент от числа, полученного в качестве аргумента.