Вопрос по массивам

← →
Виталий11111 (2005-11-13 21:08) [0]

Помогите -
задача на Паскале. Если кто может, откликнитесь на icq 235154446 - я обрисую условие, очень надо!!!!!!!!!!

З.Ы. Я бедный студент, так что жаждущим денег просьба не беспокоить. И вот ещё что: перед постом этой мессаги я 10 часов просидел над задачей, так что я не лентяй или раздолбай какой-то там. Если можете, то по-человечески помогите!

← →
Джо © (2005-11-13 21:10) [1]

> перед постом этой мессаги я 10 часов просидел над задачей

Хоть какие-то результаты есть?

← →
Виталий11111 (2005-11-13 21:45) [2]

Результаты есть, но они являются тестовыми и предназначены у меня для отладки.

Вот задача:

Даны два массива a[1..30] и b[1..40] типа Real (прога на Паскале 7.0).
Массив а по идее можно вводить с клавы (т.е. НИКАКОЙ зависимости и упорядоченности НЕТ), но я для простоты сделал так:

for i := 1 to 30 do begin
a[i] := i;
end;

Итак, в массив b переносить по 3 элемента массива a, а каддый чётвёртый элемент массива b будет равен их среднему арифметическому. Вывести на печать (на экран, понятно =)) оба массива.

← →
Gero © (2005-11-13 21:49) [3]

> Результаты есть, но они являются тестовыми и предназначены
> у меня для отладки.

Ну так покажи.

← →
Джо © (2005-11-13 21:49) [4]

А в каком моменте загвоздка?

← →
разводящий (2005-11-13 21:50) [5]

Десять часов? Не смешно.
Развод!

← →
Virgo_Style © (2005-11-13 21:50) [6]

10 часов... мать честнАя... Лучше б ты над книжкой час посидел, честное слово...
Я не в смысле "наехать", а серьезно.

← →
Виталий11111 (2005-11-13 21:50) [7]

Вот и всё...
Моя прога:

program Massiv; {$APPTYPE CONSOLE} uses SysUtils; Var i: Integer; S:Real; a: array[1..30] of integer; b: array[1..40] of real; begin { Лабораторная работа № 4 } for i := 1 to 30 do begin a[i] := i; Write(a[i], " "); end; //------------------------------------------- S := 0; for i := 1 to 30 do begin S := S + a[i]; if i mod 4 =0 then begin b[i] := S / 3; S := 0; end else b[i] := a[i-1]; end; //------------------------------------------- ReadLn; end.

Тут вот какая штука - яне знаю, как сделать, чтобы элементы не мешались. КОД этот - бред и ошибочен. Я в отчаянии. У всех на лабе задачи, которые я решаю с пол-пинка.

← →
Виталий11111 (2005-11-13 21:52) [8]

Геро, р-ты показать я не могу, поскольку с каждым новым разом код изменялся и они канули в ЛЕТУ =(

Всем остальным - если такие крутые, почему бы не заценить код?

Вирго-Стайлу: подскажи книгу, а читать я умею...

← →
разводящий (2005-11-13 21:53) [9]

> Всем остальным - если такие крутые, почему бы не заценить
> код?

Неуд!

← →
Виталий11111 (2005-11-13 21:53) [10]

Если кто не понял, я писал прогу как консольку в Делпчхи 7, ибо Паскаля у меня нет...

← →
Gero © (2005-11-13 21:54) [11]

С функциями знаком?

← →
Джо © (2005-11-13 21:55) [12]

> Всем остальным - если такие крутые, почему бы не заценить
> код?
> Вирго-Стайлу: подскажи книгу, а читать я умею...

Повелительные наклонения радуют.
П.С. Думаю, что слова "бедный студент" мало похожи на правду. Точнее будет "ленивый, но наглый студент". Удачи. :(

← →
Виталий11111 (2005-11-13 21:55) [13]

Разводящий, таких как ты, я в реале как лохов развожу. Короче, кто может, ко вторнику надо решить. Сам я сейчас тоже думаю, но у меня есть и другие уроки. Всех соболезнующих и знающих прошу отозваться!

← →
Gero © (2005-11-13 21:56) [14]

> таких как ты, я в реале как лохов развожу

После такого желание помогать отпадает начисто.

← →
Anatoly Podgoretsky © (2005-11-13 21:57) [15]

А с математикой, без нее трудно будет среднее подсчитать.
Тут от программирования почти ничего нет. Голая математика и немного программирования для непрофильных вузов.

← →
Виталий11111 (2005-11-13 21:58) [16]

Слушай. Джо, я не ленивый. За такой базар можно и ответить. Я учусь лучше всех в группе, но не могу решить эту задачу. Тебе надо выучить русский язык,ибо повелительности в моих словах нет никакой.

← →
Виталий11111 (2005-11-13 22:00) [17]

нефиг было на меня гнать, геро. я ничего ему не сказал, а он на меня травит. Анатолий, я не могуипонять, как что-то сделать, ибо смысл вашей фразы для менчя туманен

← →
MBo © (2005-11-13 22:00) [18]

Заведи еще одну переменную для индексации второго массива, и инкрементируй (увеличивай на единицу) ее в цикле по индексу первого массива, и перед внесением среднего ар. (при i mod 3 =0)

← →
Виталий11111 (2005-11-13 22:01) [19]

Я не в вузе, а в колледже учусь

← →
Джо © (2005-11-13 22:01) [20]

> [16] Виталий11111 (13.11.05 21:58)

По русскому языку тоже неуд. "подскажи" - это глагол в повелительном наклонении.

← →
Виталий11111 (2005-11-13 22:03) [21]

Удалено модератором
Примечание: 3 дня РО за наезды и мат

Научись себя вести для начала.

← →
Виталий11111 (2005-11-13 22:04) [23]

И геро туда же. Подскажи - это просьба. В наклонения нормальные люди в речи не вдаются

Виталий11111 (13.11.05 22:03) [21]
клевая была ветка... не долго ей осталось. ;)

← →
Виталий11111 (2005-11-13 22:05) [25]

Короче, кто может, скажите байду поконкретнее.

← →
Виталий11111 (2005-11-13 22:05) [26]

А что, забанят, что ли?

← →
разводящий (2005-11-13 22:06) [27]

> талий11111 (13.11.05 22:04) [23]
> В наклонения нормальные люди в речи не вдаются

Ты хотел сказать "крутые перцы"? ;)

а сам то как думаеш? как только первый же модератор увидит так и забанит.

← →
Виталий11111 (2005-11-13 22:07) [29]

Вот, например, самое нормальное предложение я услышал от MBo - про i mod 3 я тоже уже подумывал. Только можешь эту свою реплику пояснее бы?

← →
Виталий11111 (2005-11-13 22:08) [30]

Да, разводящий, такие люди, до которых тебе ДАЛЕКОООООООООООООО

Вопрос по массивам Найти похожие ветки