Длина, высота, площадь...

@Shashkov · Регистрация: 31.03.2011

Author24 — интернет-сервис помощи студентам

В программе установите максимальный размер массива – 10 записей. Массив следует выводить на экран (если это указано в задании) в виде таблицы c заголовком и «шапкой».

Создать тип «запись» с полями: Длина основания треугольника, Высота треугольника, Площадь треугольника. Создать массив из компонент этого типа (поля с длиной и высотой заполнить случайными числами) и поместить в него результаты расчета. Вывести на экран весь массив, а также максимальное и минимальное значения площади.

@Shashkov · 02.04.2011, 20:24 **[ТС]**

Сообщение от Shashkov

В программе установите максимальный размер массива – 10 записей. Массив следует выводить на экран (если это указано в задании) в виде таблицы c заголовком и «шапкой».

Создать тип «запись» с полями: Длина основания треугольника, Высота треугольника, Площадь треугольника. Создать массив из компонент этого типа (поля с длиной и высотой заполнить случайными числами) и поместить в него результаты расчета. Вывести на экран весь массив, а также максимальное и минимальное значения площади.

Выручите. Очень нужна программа))

@the_crow · 02.04.2011, 20:42

Pascal

type TTriangle=record
               osn,vis,plosh:real;
             end;
var t:array[1..10] of TTriangle; i:integer; smin,smax:real;
begin smax:=0;
      smin:=30;
      writeln('           a            |            h            |           S            ');
      for i:=1 to 10 do
      begin t[i].osn:=random*5+0.1;
            t[i].vis:=random*5+0.1;
            t[i].plosh:=t[i].vis*t[i].osn;
            writeln(t[i].osn,' | ',t[i].vis,' | ',t[i].plosh,' | ');
            if t[i].plosh<smin then smin:=t[i].plosh;
            if t[i].plosh>smax then smax:=t[i].plosh;
      end;
      writeln;
      writeln('Smin=',smin);
      writeln('Smax=',smax);
      readln;
end.

@Shashkov · 02.04.2011, 21:46 **[ТС]**

Сообщение от the_crow

Pascal

type TTriangle=record
               osn,vis,plosh:real;
             end;
var t:array[1..10] of TTriangle; i:integer; smin,smax:real;
begin smax:=0;
      smin:=30;
      writeln('           a            |            h            |           S            ');
      for i:=1 to 10 do
      begin t[i].osn:=random*5+0.1;
            t[i].vis:=random*5+0.1;
            t[i].plosh:=t[i].vis*t[i].osn;
            writeln(t[i].osn,' | ',t[i].vis,' | ',t[i].plosh,' | ');
            if t[i].plosh<smin then smin:=t[i].plosh;
            if t[i].plosh>smax then smax:=t[i].plosh;
      end;
      writeln;
      writeln('Smin=',smin);
      writeln('Smax=',smax);
      readln;
end.

Спасибо

@Shashkov 0 / 0 / 0 Регистрация: 31.03.2011 Сообщений: 29
		1
	Длина, высота, площадь... 01.04.2011, 20:00. Показов 650. Ответов 3 Метки нет (Все метки) В программе установите максимальный размер массива – 10 записей. Массив следует выводить на экран (если это указано в задании) в виде таблицы c заголовком и «шапкой». Создать тип «запись» с полями: Длина основания треугольника, Высота треугольника, Площадь треугольника. Создать массив из компонент этого типа (поля с длиной и высотой заполнить случайными числами) и поместить в него результаты расчета. Вывести на экран весь массив, а также максимальное и минимальное значения площади. 0

@Shashkov 0 / 0 / 0 Регистрация: 31.03.2011 Сообщений: 29
	02.04.2011, 20:24 [ТС]	2
	Сообщение от Shashkov В программе установите максимальный размер массива – 10 записей. Массив следует выводить на экран (если это указано в задании) в виде таблицы c заголовком и «шапкой». Создать тип «запись» с полями: Длина основания треугольника, Высота треугольника, Площадь треугольника. Создать массив из компонент этого типа (поля с длиной и высотой заполнить случайными числами) и поместить в него результаты расчета. Вывести на экран весь массив, а также максимальное и минимальное значения площади. Выручите. Очень нужна программа)) 0

	02.04.2011, 21:46