Помогите сделать РГР, Помогите сделать РГР Опции

[sergey121212]

помогите пожалуйста девушке сделать ргр очень нужно. Спасибо.


Задача 1
Операторы присваивания, ввод и вывод информации

Определите стоимость набора, в который входят следующие конфеты (стоимость упаковки составляет U грн.):
Название Вес Стоимость
Петровские 200 г Кгрн. (1 кг)
Воронежские 300 г Ргрн. (1кг)
Чародейка 250 г RrpH. (I кг)
Факел 150 г Вгрн. (1 кг)
Ласточка 200 г L грн. (1 кг)
Упаковка - U грн. (1 кг)

Задача 2 Условный оператор

Пусть даны координаты трех точек на плоскости. Если они мо¬гут быть вершинами равностороннего треугольника, вычислите его площадь и длину высоты. Выведите длины сторон, площадь и дли¬ну высоты в порядке возрастания значений.

Задача 3 Операторы цикла

Пусть дано натуральное число п. Вычислите: 1*2 + 2*3*4 +... + п *... * 2п.

Задача 4
Регулярные таны данных. Одномерные массивы

Пусть даны натуральные числа k. n. вещественные числа а1,a2,…akn Получите последовательность min(а1, а2,… аk), min(ak+1, ak+2,… а2k),
min(ak(n-1)+1,… аkn).

Задача 5
Двумерные массивы. Процедуры и функции

Пусть задана вещественная матрица. Рассматривая ее как вектор строк, упорядоченные по количеству нечетных элементов в каждой стро¬ке.

Задача 6
Строки, записи, множества. Обзор всех пройденных тем

Пусть задана символьная матрица размерности n х m. Напечатайте все символы, находящиеся в столбцах, элементы которых симметричны.

[Lapp]

Хорошо. Обещал - сделаю..

6. Пусть задана символьная матрица размерности n х m. Напечатайте все символы, находящиеся в столбцах, элементы которых симметричны.

const
  n= 4;
  m= 5;

var
  a: array[1..n,1..m] of char;
  i,j: integer;

begin
  // я не знаю, как ты собираешься задавать эту матрицу, считаю ее данной
  for j:=1 to m do begin
    i:=1;
    while (i<=n div 2) and (a[i,j]=a[n-i+1,j]) do inc(i);
    if i>n div 2 do begin
      for i:=1 to n do write(a[i]);
      writeln
    end
  end;
  readln
end.

- эту я не проверял, писал прямо тут.

4. Пусть даны натуральные числа k. n. вещественные числа а1,a2,…akn Получите последовательность min(а1, а2,… аk), min(ak+1, ak+2,… а2k),
min(ak(n-1)+1,… аkn).

const
  k= 5;
  n= 10;

var
  a: array[1..k*n] of real;
  b: array[1..n] of real;
  i,j: integer;
  min: real;

begin
  for i:=1 to k*n do a[i]:= Random*100-50;
  writeln('original array:');
  for i:=1 to k*n do write(a[i]:8:2);
  writeln;
  for i:=1 to n do begin
    min:= a[k*(i-1)+1];
    for j:=k*(i-1)+2 to k*i do if a[j]<min then min:= a[j];
    b[i]:= min
  end;
  writeln('array of minimums in ',n,' searies of ',k,' elements:');
  for i:=1 to n do write(b[i]:8:2);
  writeln;
  readln
end.