Pascal по школьному курсу

[-=WaMpIr=-]

Добрый день. Нужно срочно написать программу на Pascal по школьному курсу.

 

Задача:

 

1 Заполнить случайными числами матрицу 6×5

 

2 Вывести содержимое матрицы на экран (в наглядной форме)

 

3 Подсчитать количество отрицательных чисел в строке №4 матрицы, максимальное значение матрицы.

 

4 Оформить программу окнами. Для создания окон использовать подпрограмму

 

Пример: http://web-draft.ucoz.ru/bez_imeni.png

[Skarbovoy]

program z1;

var matrix:array[1 .. 6, 1 .. 5] of real;  max_matrix:real; N_Negative:integer; i,j:integer;
begin
randomize();
for i:=1 to 6 do
begin
 for j:=1 to 5 do
  begin
matrix[i,j] := random(20)-10;
write(matrix[i,j]:7:2,' ');
  end;
 writeln();
end;
max_matrix:=matrix[1,1];
for i:=1 to 6 do
 for j:=1 to 5 do
if max_matrix<matrix[i,j] then
   max_matrix:=matrix[i,j];
N_negative:=0;
for i:=1 to 5 do
 if matrix[4,i]<0 then
 n_negative:=n_negative+1;
writeln ('Max = ', max_matrix:7:2);
writeln('Negative = ', n_negative);
readln();
end.

Код не проверялся, "написан в блокноте"

[-=WaMpIr=-]

Skarbovoy, ничё се! Усё праульно. Осталось прикрутить окошки!

 

Через подпрограммы делается вот так:

Program Okno2;
Uses crt;
Procedure Windows (X1,Y1,X2,y2,ct,cbt:integer);
Begin
	Window (X1,Y1,X2,y2);
	Textcolor (ct);
	Textbackground (cbt);
	Clrscr;
End;
BEGIN
Windows (2,2,60,20,3,4);
Windows (4,3,40,12,5,11);
END.

Но вот перед/после чего нужно писать Windows (2,2,60,20,3,4); непонятно.

 

Skarbovoy, всё отлично, работает! Премного благодарен! Телефон или WM!?

[Skarbovoy]

Skarbovoy, всё отлично, работает! Премного благодарен! Телефон или WM!?

Если есть сильное желание - давай WM.

Изменено 1 марта, 2013 пользователем Skarbovoy

[-=WaMpIr=-]

В наше время любую работу нужно оплачивать!