|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.12.2012, 16:29 | #1 |
Регистрация: 16.12.2012
Сообщений: 7
|
блок-схема для программы в паскале
program ksenia;
uses crt; var s,mas:array [1..15] of integer; dmas:array [1..15 , 1..15] of integer; a,z,i,j,p,e,q:integer; procedure mas1; begin writeln('Какой размерности массив',a); readln(a); p:=0; writeln ('Введите одномерный массив'); for i:=1 to a do begin readln (mas [i]); if mas[i]>p then begin p:=mas[i] ; end; end; writeln('Максимальный элемент =',p) end; procedure mas2; begin writeln('Какой размерности двухмерный массив'); readln(a); writeln ('Введите двухмерный массив'); for i:=1 to a do begin for j:=1 to a do begin readln ( dmas [i , j] ); end; end; for j:=1 to a do begin s [j]:=dmas [i,j]; for i:=1 to a do begin if dmas [i,j]<s [j] then s [j]:=dmas [i,j]; end; end; for i:=1 to a do begin writeln('Минимальный в строке элемент =',s [i]); q:=q+s[i] end; writeln('Сумма минимальных элементов =',q) end; begin repeat writeln('Какое действие хотите выполнить'); writeln('1-Заполнение одномерного массива'); writeln('2-Заполнение двухмерного массива'); writeln('3-Выход'); readln(e); case e of 1: mas1; 2: mas2; end; until (e=3); end. |
16.12.2012, 16:59 | #2 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Это не компилятор, а форум.
|
16.12.2012, 17:08 | #3 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
FCEditor поможет
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок-схема для программы | TVIST95 | Помощь студентам | 0 | 05.11.2012 23:23 |
нужна блок схема для программы | Glenel | Помощь студентам | 5 | 15.04.2011 09:04 |
Блок схема для программы | Bloodnes | Помощь студентам | 6 | 13.01.2011 17:26 |
Блок схема для программы в паскале | AnKS | Помощь студентам | 9 | 27.11.2010 19:35 |