-=WaMpIr=- 12 Опубликовано 1 марта, 2013 Share Опубликовано 1 марта, 2013 Добрый день. Нужно срочно написать программу на Pascal по школьному курсу. Задача: 1 Заполнить случайными числами матрицу 6×5 2 Вывести содержимое матрицы на экран (в наглядной форме) 3 Подсчитать количество отрицательных чисел в строке №4 матрицы, максимальное значение матрицы. 4 Оформить программу окнами. Для создания окон использовать подпрограмму Пример: http://web-draft.ucoz.ru/bez_imeni.png Цитата Ссылка на сообщение Поделиться на другие сайты
Skarbovoy 470 Опубликовано 1 марта, 2013 Share Опубликовано 1 марта, 2013 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=- 12 Опубликовано 1 марта, 2013 Автор Share Опубликовано 1 марта, 2013 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 470 Опубликовано 1 марта, 2013 Share Опубликовано 1 марта, 2013 (изменено) Skarbovoy, всё отлично, работает! Премного благодарен! Телефон или WM!? Если есть сильное желание - давай WM. Изменено 1 марта, 2013 пользователем Skarbovoy Цитата Ссылка на сообщение Поделиться на другие сайты
-=WaMpIr=- 12 Опубликовано 1 марта, 2013 Автор Share Опубликовано 1 марта, 2013 В наше время любую работу нужно оплачивать! Цитата Ссылка на сообщение Поделиться на другие сайты
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.