Архив форума ЛГ

паскаль

Orange1

Назад к темам раздела.

2012-11-22 17:33:56

Orange1

определить, что больше - сумма элементов, стоящих до минимального элемента, или сумма элементов , стоящих после минимального элемента - надо в паскале написать программу !

Помогите пожалуйста программу написать и желательно объяснить :О

2012-11-22 17:48:00

Orange1

Определить, какой элемент – максимальный или минимальный – стоит ближе к концу массива; это первое задание . Определить, что больше – сумма элементов, стоящих до минимального элемента, или сумма элементов, стоящих после минимального элемента.

Нужно решение и меню*

2012-11-22 18:14:36

Voide

принять любой элемент массива за максимальный/минимальный потом сравнить с остальными если есть меньше/юольше запомнить и дальше сним сравнивать..записать индексы этих элементов потом их сравнить..а сумму посчитать вообще обычным циклом..задача элементарная)

2012-11-22 18:19:21

Orange1

Voide
Спасибо, вроде с первой справилась группа, нужна вторая, но я вообще информатику не понимаю..

2012-11-22 18:22:57

Orange1

у тебя есть знакомы кто щас посмотреть может ?
я щас тебе скину тогда решение попроси его разобраться, почему вылетает когда в меню нажимаешь клавишу 4
скину файл
ты его открываешь через ворд
сохраняешь как текстовый документ
кидаешь его в папку с паскалем фри
в папку i386-win32
и запускаешь паскаль фри и открываешь через него этот файд

https://zalil.ru/33990116

2012-11-22 18:46:21

WinterSilence

а потом вот такие получают диплом инженера и идут работать...

2012-11-22 19:05:15

Orange1

WinterSilence
Вас не звали

2012-11-22 19:05:39

Orange1

Я далеко не на инженера учусь, и паскаль мне этот в гробу не нужен.
WinterSilence

2012-11-23 13:06:32

Only_True

WinterSilence
Какой ты ехидный, однако. Спермотоксикоз?

2012-11-23 13:24:39

Voide

Orange1
да вроде не должно вылетать на 4 если на 3 не вылетает)паскаль лень ставит если чесно..
и это нормально пол проги на транслите пол на кирилице?)

2012-11-26 16:29:29

MrHide

Orange1
1. С какой ошибкой вылетает
2. Какие данные вводились при запуске программы

тогда можно что-то сказать конкретнее

правда судя по дате уже скорее всего не актуально.

Совет на будущее как отловить ошибку:
Вставляете проверочную печать в подозрительных местах. в данном случае, например так:
procedure z2(a:mas;n:integer);
var min,num,sumDo,sumPOSLE,i:integer;
begin
writeln('Into Z2 ');readkey;
for i:= 1 to 20 do begin
writeln('Into for 1_ ',i);readkey;
if a[i]<min then begin
min:=a[i];
num:=i;
end;
end;
sumDO:=0;
sumPOSLE:=0;
if num=1 then writeln('summa elementov posle min elementa bolshe')
else if num=n then writeln('summa elementov do min elementa bolshe')
else begin
for i:=1 to (num-1) do sumDO:=sumDO+a[i];
for i:=(num+1) to n do sumPOSLE:=sumPOSLE+a[i];
if sumDO>sumPOSLE then writeln('summa elementov do min elementa bolshe')
else if sumDO<sumPOSLE then writeln(' summa elementov posle min elementa bolshe')
else writeln('summy do i posle min elementa ravny');
end;

т.е. если на экране появится сообщение "Into Z2 ", значит мы вошли внутрь этой процедуры и ошибку надо искать в ней, а не в case , который ее вызвал.
если на экране будет:
Into Z2
Into for 1_1
Into for 1_2
Into for 1_3
а после этого вылетит, значит сбой произошел на третьей итерации (повторе) первого цикла этой процедуры.

Аналогично тыкаем проверочную печать в нужных местах проги и ищем какая печать выведется на экран, а какая нет.
P.S. Readkey - процедура задержки экрана (ждет пока нажмем любую клавишу), чтобы она работала в начале программы надо написать "uses crt;". Задержка нужна для удобства, т.к. иногда программа выполняется очень быстро и вылетает быстро так, что не успеть разглядеть что написано.
P.P.S не забудьте убрать отладочную печать перед сдачей работы (лучше сначала закомментировать, проверить что все работает, а потом удалять полностью)

2012-11-26 16:59:57

snark

Only_True писал(а):

Спермотоксикоз?

вроде рано еще...

2012-11-28 10:54:01

Orange1

Всем спасибо, уже сама разобралась, закрыто