Сложная zadacha на массивы,(надо на зачет) :)

@Fire1 · Регистрация: 16.05.2011

Студворк — интернет-сервис помощи студентам

Пусть известны данные многолетних наблюдений за количеством выпавших осадков на определенной территории в каждый из дней периода. Они записаны в массиве, состоящем из N элементов, где N - кол-во дней в периоде. Все дни периода и , соответственно, элементы массива пронумерованы от 1 до N ,
а каждый элемент массива соответствует кол-ву осадков(в мм), в соответствующий день. Далее нам поступают K запросов о суммарном кол-ве осадков на том или ином интервале рассматриваемого периода.
ТРЕБУЕТСЯ : Выдать ответ на каждый запрос. Помогите пожалуйста

_____________________________________________________________
Если понадобиться есть решение ( ОПисное, не на Pascal'e) ... ответ плиз тут или в скайп
Fire1fray_oO
Зарание благодорю.

@Fire1 · 16.05.2011, 15:43 **[ТС]**

Вот решение....

@Chertenok_n_13 · 16.05.2011, 16:00

Если правильно поняла задачу, то вот

Pascal

Program m_1;
uses crt;
type mas=array [1..100] of integer;
var s:integer; d:mas;
l,a,b,i,n:byte;
begin
writeln('vvedite veli4inu perioda');
readln(n);
writeln('vvedite osadki.');
for i:=1 to n do begin
write(i, ' den: ');
readln(d[i]);
end;
clrscr;
writeln('dannie:');
for i:=1 to n do
writeln(i,' den: ', d[i]);
writeln;
l:=1;
while l<>0 do begin
writeln('vvedite period. Format vvoda [1 den, 2 den]');
write('[');read(a); write(','); read(b); writeln(']');
s:=0;
if a<b then for i:=a to b do
s:=s+d[i] else begin l:=a; a:=b; b:=l; for i:=a to b do s:=s+d[i]; end;
writeln('summarnoe koli4estvo osadkov v period s ', a,' po ', b, '=', s);
writeln;
writeln('hotite pos4itat es4e odin period? 1- da, 0 - net');
readln(l);
end;
readln;
end.

если что-то не так, то пиши в личку, исправим... если так, но не понятно, как работает, то тоже в личку, объясню

Добавлено через 1 минуту
о, а ответ уже сами нашли...)

@Fire1 · 17.05.2011, 00:46 **[ТС]**

writeln('vvedite period. Format vvoda [1 den, 2 den]');
write('[');read(a); write(','); read(b); writeln(']');

ТОлько вот это не понятно, а так спасибо большое.

@QuakeArena · 17.05.2011, 05:53

ну первая строка выведет "vvedite period. Format vvoda [1 den, 2 den]"
Вторая [(здесь будет ждать введения 1 дня),(здесь будет ждать второго дня)]

@Fire1 · 17.05.2011, 07:34 **[ТС]**

Спасибо

@Fire1 0 / 0 / 0 Регистрация: 16.05.2011 Сообщений: 7
		1
	Сложная zadacha на массивы,(надо на зачет) :) 16.05.2011, 14:38. Показов 582. Ответов 5 Метки нет (Все метки) Пусть известны данные многолетних наблюдений за количеством выпавших осадков на определенной территории в каждый из дней периода. Они записаны в массиве, состоящем из N элементов, где N - кол-во дней в периоде. Все дни периода и , соответственно, элементы массива пронумерованы от 1 до N , а каждый элемент массива соответствует кол-ву осадков(в мм), в соответствующий день. Далее нам поступают K запросов о суммарном кол-ве осадков на том или ином интервале рассматриваемого периода. ТРЕБУЕТСЯ : Выдать ответ на каждый запрос. Помогите пожалуйста _____________________________________________________________ Если понадобиться есть решение ( ОПисное, не на Pascal'e) ... ответ плиз тут или в скайп Fire1fray_oO Зарание благодорю. 0

@Fire1 0 / 0 / 0 Регистрация: 16.05.2011 Сообщений: 7
	16.05.2011, 15:43 [ТС]	2
	Вот решение.... Миниатюры 0

@Fire1 0 / 0 / 0 Регистрация: 16.05.2011 Сообщений: 7
	17.05.2011, 00:46 [ТС]	4
	writeln('vvedite period. Format vvoda [1 den, 2 den]'); write('[');read(a); write(','); read(b); writeln(']'); ТОлько вот это не понятно, а так спасибо большое. 0

@QuakeArena 20 / 20 / 10 Регистрация: 16.05.2011 Сообщений: 161
	17.05.2011, 05:53	5
	ну первая строка выведет "vvedite period. Format vvoda [1 den, 2 den]" Вторая [(здесь будет ждать введения 1 дня),(здесь будет ждать второго дня)] 1

@Fire1 0 / 0 / 0 Регистрация: 16.05.2011 Сообщений: 7
	17.05.2011, 07:34 [ТС]	6
	Спасибо 0

Опции темы