рефераты рефераты
 

Главная

Разделы

Новости

О сайте

Контакты

 
рефераты

Авиация и космонавтика
Административное право
Арбитражный процесс
Архитектура
Астрология
Астрономия
Банковское дело
Безопасность жизнедеятельности
Бизнес-план
Биология
Бухучет управленчучет
Водоснабжение водоотведение
Военная кафедра
География и геология
Геодезия
Государственное регулирование и налогообложение
Гражданское право
Гражданское процессуальное право
Животные
Жилищное право
Иностранные языки и языкознание
История и исторические личности
Коммуникации связь цифровые приборы и радиоэлектроника
Краеведение и этнография
Кулинария и продукты питания
Культура и искусство
Литература
Логика
Логистика
Маркетинг
Масс-медиа и реклама
Математика
Медицина
Международное и Римское право
Уголовное право уголовный процесс
Трудовое право
Журналистика
Химия
География
Иностранные языки
Без категории
Физкультура и спорт
Философия
Финансы
Фотография
Химия
Хозяйственное право
Цифровые устройства
Таможенная система
Теория государства и права
Теория организации
Теплотехника
Технология
Товароведение
Транспорт
Трудовое право
Туризм
Уголовное право и процесс
Управление
Радиоэлектроника
Религия и мифология
Риторика
Социология
Статистика
Страхование
Строительство
Схемотехника
История
Компьютеры ЭВМ
Культурология
Сельское лесное хозяйство и землепользование
Социальная работа
Социология и обществознание

рефераты
рефераты

НАУЧНАЯ БИБЛИОТЕКА - РЕФЕРАТЫ - Реферат: Платон и Аристотель

Реферат: Платон и Аристотель

program MAXIMUM;

uses crt;

const N=3;

type

matrix=array[1..N,1..N] of real;

var c:matrix;

max1,max2:real;

i,y,ymax1,ymax2:integer;

begin

clrscr;

writeln ('Введите матрицу');

for i:=1 to n do

for y:=1 to n do begin

readln(c[i,y]);

end;

max1:=c[1,1];

ymax1:=1;

for i:=1 to n do begin y:=i;

if max1<c[i,y] then begin max1:=c[i,y];

ymax1:=i;

end;

end;

max2:=c[1,1];

ymax2:=1;

for i:=1 to n do begin y:=n-i+1;

if max2<c[i,y] then begin max2:=c[i,y];

ymax2:=i;

end;

end;

if max1>max2 then begin

writeln(max1:8:2);

for y:=1 to n do begin

writeln(c[ymax1,y]:8:2);

end;

end

else writeln(max2:8:2);

for y:=1 to n do begin

writeln(c[ymax2,y]:8:2);

end;

end.

рефераты
© РЕФЕРАТЫ, 2012

рефераты