IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Массивы одномерныые и двумерные..., Помогите пожалуйста
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


У меня есть задание сделать одномерный и двумерный массив помогите плиз.....
1)Дан массив L1,..,L20. Заменить элементы, стоящие после Lmin, на среднее арифметическое всего ряда.
begin
closegraph;
textbackground(cyan);
clrscr;
textcolor(Magenta);
gotoxy(2,3);
writeln('DaH MACCuB L[1..20], 3ameHuTb eJIEMEHTbI IIosJIe min, Ha sredHee zna4enee ');
for i:=1 to 20 do begin
gotoxy(10,5);
textcolor(yellow);
writeln('BbeDite elementi massiva ',i);
gotoxy(10,6);
textcolor(white);
gotoxy(2+i*3,7);
readln(L[i]);
end;
s:=0;
L[min]:=L[i];
min:=i;
for i:=1 to 20 do
begin
if L[i]<L[min] then begin
L[min]:=L[i];
s:=s+L[i];
end;
end;
s:=s/20;
for i:=1 to 20 do begin
if L[i]>L[min] then L[i]:=s;
gotoxy(10,2);
writeln('Massiv gotov dlya proverki');
textcolor(black);
gotoxy(i,3+i);
writeln('i= ',L[i] :4 :0);
end;
readkey;
end.

это что я смог сделать, но программа все равно не пашет!!! И это только кусочек)))

2)В матрице найти минимальный элемент. Разделить элементы строки, в которой он находится, на найденный минимальный элемент.

P.S. Заранее спасибо за помощь good.gif


--------------------
Хочу стать программером, но еще много чего учить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


она считает всё и пишет правильно, но, признаюсь, есть один глюк. он последний элемент не изменяет.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
zara44   Массивы одномерныые и двумерные...   9.02.2007 5:05
Altair   Если приводишь программу, приводи всю. Ты не напис…   9.02.2007 13:49
/7popok   Скажи мне, пожалуйста, для чего тебе нужны по всей…   9.02.2007 14:48
zara44   program lab7; var L:array of real; min,s:real; i:…   9.02.2007 14:51
volvo   zara44, допущена грубая ошибка: когда ты ищешь мин…   9.02.2007 14:56
/7popok   zara44, а по аналогии самому сложно? добавляешь вт…   9.02.2007 14:59
zara44   /7popok . Программу которую ты мне написал. Она то…   9.02.2007 15:06
/7popok   она считает всё и пишет правильно, но, признаюсь, …   9.02.2007 15:10
volvo   min:=i;после окончания цикла делать нельзя - i не …   9.02.2007 15:12
zara44   У меня выходит примерно так. Привожу пример Введит…   9.02.2007 15:15
volvo   const n = 20; var i, min:integer; s: real; L…   9.02.2007 15:24
/7popok   volvo после цикла оно же равно 20, так как цикл за…   9.02.2007 15:26
zara44   Спасиба теперь программа работает. Теперь остается…   9.02.2007 15:32
мисс_граффити   Попробуй сам по аналогии... Напиши хоть что-нибудь…   9.02.2007 15:35
zara44   Ок. Постараюсь что нибудь сделать. А щас я в колле…   9.02.2007 15:38
volvo   Да? Уверен? Я - нет... И доки на Паскаль тоже со м…   9.02.2007 15:38
мисс_граффити   Да в любом случае вот это - бред. L[min]:=L[i]; m…   9.02.2007 16:24
zara44   Вторую задачу смог сделать только так, плиз покажи…   10.02.2007 18:49
мисс_граффити   1. Общие правила форума действуют для всех: 8. Зап…   10.02.2007 19:34
TarasBer   Zara, сделайте пожалуйста так, чтобы я мог это чит…   10.02.2007 19:43
zara44   Ну так у меня получается program lab; uses crt; …   10.02.2007 20:27
мисс_граффити   ты просьбы и вопросы игнорируешь? ну что ж... пожа…   10.02.2007 21:01
zara44   Я просто не понимаю чего от меня хотят!!…   10.02.2007 21:39
мисс_граффити   от тебя хотят нормального форматирования. то есть …   10.02.2007 21:45
zara44   Я понял. Постараюсь нормально писать... А одномерн…   10.02.2007 21:56
мисс_граффити   А ты понял, что там происходит в одномерном пример…   10.02.2007 22:39
zara44   Вроде все написал правильно. А на экран выводит то…   11.02.2007 3:30
volvo   А вот так: gotoxy(35,2); write('poluchen mass…   11.02.2007 3:58
zara44   ладно щас попробую!!! [b]Добавлено че…   11.02.2007 4:08
volvo   Ты внимательно посты будешь читать? Я тебе о чем ч…   11.02.2007 4:25
zara44   Простите за глупость не внимательно читаю!…   11.02.2007 4:52
zara44   Кому интересно могут посмотреть прогу!!…   11.02.2007 6:17


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 16:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name