![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 06.05.2010
Сообщений: 9
|
![]()
Не получается составить блок схему до конца.А программа по составлению блок схем лажа полная...делает неправильно.
Желающим помочь буду благодарен!!!! Задание: program n3; uses crt; var massiv: array [1..100,1..100] of integer; i,j,mr,mc,min, max, minj, maxj, tmp:integer; begin clrscr; mr:=101; mc:=101; while ((mr>100)or(mr<0)or(mc>100)or(mc<0) ) do begin writeln('Vvedite razmernost massiva (ne bolee chem 100x100):'); readln(mr); readln(mc); end; for i:=1 to mr do for j:=1 to mc do begin writeln('Vvedite element massiva nomer ',(i-1)*mc+j,':'); readln(massiv[i,j]); end; writeln('Massiv do izmeneniya:'); for i:=1 to mr do begin for j:=1 to mc do write(massiv[i,j],' '); writeln; end; min:=massiv[1,1]; minj:=1; for i:=1 to mr do for j:=1 to mc do if massiv[i,j]<min then begin min:=massiv[i,j]; minj:=j; end; max:=massiv[1,1]; maxj:=1; for i:=1 to mr do for j:=1 to mc do if massiv[i,j]>max then begin maX:=massiv[i,j]; maxj:=j; end; for i:=1 to mr do begin tmp:=massiv[i,minj]; massiv[i,minj]:=massiv[i,maxj]; massiv[i,maxj]:=tmp; end; writeln('Nomer ctolbca s minimalnym elementom: ',minj); writeln('Nomer ctolbca s maximalnym elementom: ',maxj); writeln('Massiv posle izmeneniya:'); for i:=1 to mr do begin for j:=1 to mc do write(massiv[i,j],' '); writeln; end; readln; end. |
![]() |
![]() |
![]() |
#2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]()
Прежде чем пользоваться программой нужно хоть самому что-то знать.Вот всё прекрасно строит.Впереди вставь блок описания переменных и убери блоки writeln;readln; и clrscr.
にんじゃ
![]() |
![]() |
![]() |
![]() |
#3 |
Регистрация: 06.05.2010
Сообщений: 9
|
![]()
Спасибо тебе за помощь......Я был не уверен правильно ли я делаю....Но ты подтвердил то что я не ошибся.....
|
![]() |
![]() |
![]() |
#4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]()
и вывод данных (пример:writeln('Nomer ctolbca s minimalnym elementom: ',minj)
![]() в фигуре дисплей (в ворде глянь) делать можно.
にんじゃ
![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal ! Нужно составить ! Алгоритм ! Блок схема ! | valerka92 | Помощь студентам | 1 | 27.04.2010 10:04 |
Блок схема к заданию | Олфелия | Помощь студентам | 8 | 12.10.2009 17:25 |
Pascal. Блок-схема | NitriNKa | Помощь студентам | 1 | 06.06.2009 05:46 |