Помогите,пожалуйста!

[BioShock 20]

Ребят,добрый вечер.

В субботу экзамен по инфе,я в ней полный ноль.Вот.Мне еще надо показать одну работу преподу,решение работы у меня есть,но я не понимаю как задачу делали.А препод будет спрашивать,мол,как делал и т.п.

Объясните пожалуйста что,да как,буду премного благодарен!

Сама задача:

"Дан целый массив из 4 строк и пяти столбцов.Упорядочить массив в порядке возрастания элементов первой строки."

 

Программный код:

program six;

var i,e,j, pr: integer;

a : array [1..4,1..5] of integer;

begin

for i:=1 to 4 do

for j:= 1 to 5 do

begin

write('enter a[',i,'',j,']');

readln (a[i,j]);

end;

writeln('nach array');

for i:=1 to 4 do

begin

for j:= 1 to 5 do

write (a[i,j]:6);

writeln;

end;

writeln;

for i:=1 to 5 do

begin

for e:=2 to 5 do

if a[1,e-1]>=a[1,e] then

for j:=1 to 4 do

begin

pr:=a[j,e];

a[j,e]:=a[j,e-1];

a[j,e-1]:=pr;

end;

end;

writeln('result array');

for i:=1 to 4 do

begin

for j:=1 to 5 do

write (a[i,j]:6);

writeln;

end;

end.

 

 

 

 

Умоляю,помогите.

[BioShock 20]

:sorry:

[Snork 0]

вот словесный алгоритм сортировки по возрастанию, от него и танцуй:

 

0. Начало

1. Ввод n

2. Ввод A [1..n]

3. Для i=1 до n делать

4. к=0

5. Пока к<n-1 делать

6. если а [k+1]>a[k]

temp=a[k]

a[k]=a[k+1]

a[k+1]=temp

7. Конец для

8. Конец для

9. Конец.

 

 

Примерно так.

[B@ZuK 0]

Если вообще дуб дубом, объясняю:

program six;

var i,e,j, pr: integer; - задаются переменные, тут целый тип

a : array [1..4,1..5] of integer; - это задаешь массив двухмерный

begin

for i:=1 to 4 do - ты мутишь цикл в цикле для записи в массив

for j:= 1 to 5 do

begin

write('enter a[',i,'',j,']');

readln (a[i,j]);

end; - тут конец цикла ввода массива

writeln('nach array');- тут мутится цикл для вывода массива

for i:=1 to 4 do

begin

for j:= 1 to 5 do

write (a[i,j]:6);

writeln;

end; - тут он заканчивается

writeln;

for i:=1 to 5 do - этот цикл в цикле нужен для сортировки, как бы сравниваются элементы последующий с предыдущим

begin

for e:=2 to 5 do

if a[1,e-1]>=a[1,e] then

for j:=1 to 4 do

begin

pr:=a[j,e];

a[j,e]:=a[j,e-1];

a[j,e-1]:=pr;

end;

end;

writeln('result array'); - выводим отсортированный массив(тоже цикл в цикле)

for i:=1 to 4 do

begin

for j:=1 to 5 do

write (a[i,j]:6);

writeln;

end;

end.

 

 

Думаю как работают операторы и их форматы ты знаешь, пояснять не надо.

Изменено 20 января 2010 пользователем B@ZuK

[B@ZuK 0]

Эм... Народ, кому не лень. Турбо Паскаль. Проболел и кое-что не понимаю.

Короч, вот задача:

Вычислить площадь и периметр треугольника по 3 координатам.

Периметр сделал, а вот с площадью как?

Выглядит так:

 

Program Zadacha1;

var x1, x2, y1, y2, x, y, P, S: integer;

c:real;

begin

writeln ('Введите координаты точки (x1, y1)');

read (x1, y1);

writeln ('Введите координаты точки (x2, y2)');

read (x2, y2);

writeln ('Введите координаты точки (x, y)');

read (x, y);

c:=sqrt(sqr(x2-x1)+sqr(y2-y1))+sqrt(sqr(x1-x)+sqr(y1-y))+sqrt(sqr(x2-x)+sqr(y2-y));

writeln ('c=',c);

как написать площадь?(( кому не сложно, помогите плиз..(

там тупо формула должна быть, это уже математика, а не информатика.

[vizeer9a 0]

Ну так тебе формулу вычисления площади треугольника и надо\ Изменено 20 января 2010 пользователем vizeer9a

[B@ZuK 0]

Так прикол в том, что формулы нету. На прошлом уроке не был, вот и результат...(

Не знаю как и быть.

приди и скажи преподу как есть(если уважительный допуск), думаю поймет.

Или пересматривай справочники по математике.

[creker 0]

ChAoSDrAgOn, раз есть периметр, то можно площадь через формулу Герона вычислить

sqrt(p * (p - sqrt(sqr(x2-x1)+sqr(y2-y1)) ) * (p - sqrt(sqr(x1-x)+sqr(y1-y)) ) * (p - sqrt(sqr(x2-x)+sqr(y2-y)) ) ), где p - полупериметр(т.е. 1/2*периметр). В скобках из p вычитается длина стороны треугольника.

 

И заведи хоть для приличия отдельные вещественные переменные под длину каждой стороны и вещественные переменные под площадь и периметр.

[Miles Prower 0]

информатика , о боже .

 

Как мне учительница говорила , ''хочешь решить задачу , разговаривай с ней'' xDD

[BioShock 20]

Ребят,всем спасибо огромное!