Перейти к содержанию
-=WaMpIr=-

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

Рекомендуемые сообщения

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

 

Задача:

 

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

 

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

 

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

 

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

 

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

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.

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

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

 

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

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, всё отлично, работает! Премного благодарен! :help: Телефон или WM!? :)

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
Skarbovoy, всё отлично, работает! Премного благодарен! :lol: Телефон или WM!? :help:

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

Изменено пользователем Skarbovoy

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


×
×
  • Создать...