|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2014, 20:57 | #1 |
Пользователь
Регистрация: 17.02.2014
Сообщений: 18
|
2 программки (массивы) на паскале АВС
Помогите написать программы с процедурами!
Время до завтра 12:00. За каждую программу 200 рублей. 1. Составьте программу, выясняющую, равен ли наименьший элемент двухмерного массива А(N,M) половине максимального. 2. Составьте программу подсчета числа положительных элементов одномерного массива А(N), встречающихся в этом массиве более двух раз. |
28.05.2014, 22:17 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
первая задача:
http://files.mail.ru/9EA6FB1A228D442A97726FD9CB9BCBAD https://ideone.com/I2ZbBL пойдёт? |
28.05.2014, 22:34 | #3 |
Пользователь
Регистрация: 17.02.2014
Сообщений: 18
|
а если самой матрицу строить, а не со случ числами???
|
29.05.2014, 00:09 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
дык, изменяете (или добавляете) всего одну процедуру - там, где заполняется случ.числами.
в ней читаете числа с помощью Read()/ReadLn() А можно массив задать константами, прямо в коде программы. А ещё можно подготовить файл с данными и программно читать из файла в массив. Вариантов, как видите, много разных... |
29.05.2014, 08:56 | #5 |
Пользователь
Регистрация: 17.02.2014
Сообщений: 18
|
в чем ошибка то??
var i, j : integer; begin MaxElement := A[1,1]; MinElement := A[1,1]; for i:=1 to N do for j:=1 to M do begin if A[i,j] > MaxElement then MaxElement := A[i,j]; if A[i,j] < MinElement then MinElement := A[i,j]; end; end; var Mas : TMas; max, min : integer; Begin {начало основной программы} write('Введите размер массива: '); readln(n,m); writeln('Введите элементы массива'); for i := 1 to n do begin for j := 1 to m do begin writeln('Введите элемент №', i, ' из ', n,'Введите элемент №',j, ' из ',m); readln(a[i],a[j]); FindMinMax(Mas, max, min); WriteLn('max= ', max,' min = ', min); if min = (max div 2) then WriteLn('YES! (minimal equals half of maximal!)') else WriteLn('NOT! (minimal NOT equals half of maximal!)'); end. Последний раз редактировалось Кутяшка; 29.05.2014 в 09:05. |
29.05.2014, 09:22 | #6 |
Пользователь
Регистрация: 17.02.2014
Сообщений: 18
|
Ладно, уже сама подобрала))))
Куда деньги то перечислять??? |
29.05.2014, 10:29 | #7 |
Новичок
Джуниор
Регистрация: 13.02.2014
Сообщений: 0
|
Могу написать без проблем
skype: rfhfcerf vk: http://vk.com/id24348165 Отзывы: http://www.cyberforum.ru/freelancers-offers/thread288373-page5.html |
29.05.2014, 12:04 | #8 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Кутяшка, написал Вам сообщение, проверьте личку...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Рисование в Паскале АВС | Gomer_alkAn | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 23.01.2012 14:04 |
Задания в Паскале АВС | Jenny_19 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.11.2011 19:27 |
Нужно написать программу в паскале авс!!! | Саранск-сити | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.05.2010 19:30 |
Нужно написать программу в паскале АВС | DarkGhost | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.04.2010 16:14 |
Вычислить параметр треугольника АВС в паскале. | Freeman_DR | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 26.10.2008 21:11 |