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

[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. Напечатайте все символы, находящиеся в столбцах, элементы которых симметричны.

[sergey121212]

Вот вторая

Код

program zad2;

uses crt;
const t=0.001;  //точность сравнения с нолем
type Point=record  //тип точка
           x,y:real;
           end;
function Dlina(a,b:Point):real; //длина стороны
begin
Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
function Plosh(a,b,c:Point):real; //площадь
var p:real;
begin
p:=(Dlina(a,b)+Dlina(b,c)+Dlina(a,c))/2;
Plosh:=(sqrt(p*(p-Dlina(a,b))*(p-Dlina(b,c))*(p-Dlina(a,c))));
end;
function H(a,b,c:Point):real;  //длина высоты
begin
H:=2*Plosh(a,b,c)/Dlina(a,b);
end;
procedure Sort(a,b,c:real;var mn,sr,mx:real); //сортировка по возрастанию
begin
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
end;
var a,b,c:Point;
    x,y,z:real;
begin
writeln('Введите координаты X,Y вершин треугольника:');
write('A:  ');readln(a.x,a.y);
write('B:  ');readln(b.x,b.y);
write('C:  ');readln(c.x,c.y);
if  Plosh(a,b,c)<t then writeln('Это не треугольник!')
else
begin
  Sort(Dlina(a,b),Dlina(b,c),Dlina(a,c),x,y,z);
  writeln('Длины сторон в порядке возрастания = ',x:0:2,' ',y:0:2,' ',z:0:2);
  writeln('Площадь =',Plosh(a,b,c):0:2);
  Sort( H(a,b,c),H(a,c,b),H(b,c,a),x,y,z);
  writeln('Длины высот в порядке возрастания = ',x:0:2,' ',y:0:2,' ',z:0:2);
end;
readln
end.