Большой Воронежский Форум Mobile

Помогите пожалуйста решить задачку.
Дан массив А содержащий 10 элементов вещественного типа, в котором первые k элементов имеют один знак, а остальные - другой. Определить индекс элемента массива, у которого знак сменился на противоположный. Найти сумму элементов массива начиная с k+1го. Индексацию элементов заданного массива начать с 0. Для перебора элементов испльзовать оператор While. [Ответ]

Памагите ришить зодачу напаскале. Дано два числа. Их нада слажить. Ризультат вывисти на икран. [Ответ]

стучись с полтинником в приват. даже распечатаю решение на принтере. [Ответ]

Snusmumrik,
Молодца! Открывай бизнес. [Ответ]

X0R, ну уж если 20-летний Мишa не осилил задачу, почемубы 6-ти летнему Снусмумрегу не заработать на 0.33 пива) \в Жигуле былобы больше, но его, к сожалению, не пью))\ [Ответ]

Сообщение от Snusmumrik:
\в Жигуле былобы больше, но его, к сожалению, не пью))\

ну и дура (це) )) [Ответ]

Сообщение от Ivan XXX:
ну и дура (це) ))

да я сам мучаюсь.. мог бы 2.5 литра за полтинник сосать ходить весь день... а я вот такой... [Ответ]

Snusmumrik, то есть к тебе можно обращаться за решением?) [Ответ]

Ckrimer, почитай http://u-antona.vrn.ru/forum/showthread.php?t=186610 и подумай к кому можно обращаться за решением [Ответ]

X0R, я понял) но к счастью с паскалем у меня нет проблем) [Ответ]

Ckrimer, а с чем есть?) [Ответ]

X0R, отставить недобросовестную конкуренцию! Молодым везде дорога!)

Ckrimer, ну конечноже стучись ко мне). даже если будут проблемы с ДЕЛФИ)))). [Ответ]

Snusmumrik,
Ни фига! Я разместил объяву, значит ко мне и предъявы!))

PS Дельфу тож решаю. [Ответ]

Сообщение от X0R:
Snusmumrik,
Ни фига! Я разместил объяву, значит ко мне и предъявы!))

PS Дельфу тож решаю.

а вот так?
http://u-antona.vrn.ru/forum/showthread.php?t=144629
на дату объявы посмотри)))) [Ответ]

Сообщение от :
Уровень сложности-1-2 курс. До файлов включительно. Школьникам тоже помогу)).
Быстро, недорого, качественно (по желанию с комментариями, объясню решение).
Делфи-только консольные приложения.

До 3 курса (не всегда)
Быстрее, недороже, качественнее, коменты оставлю ))
GUI клепаю) [Ответ]

Сообщение от X0R:
GUI клепаю)

да и я не отстаю.... уже полгода прошло с прошлого объявления.. просто тогда заморачиваться не хотелось со всяким ооп, стеками, деревьями, итд.

ты где учишься? или уже отучился?)) [Ответ]

Snusmumrik, в ПЕДе учусь [Ответ]

лан. нефиг спорить. всеравно мне, например, еще никто не постучался за полгода((((. незнаю, как у тебя... [Ответ]

Стучат понемногу
Может фирму откроем? Я ищу клиентов, а потом решаем. Типа "Смерть преподам, свободу ученикам" [Ответ]

хочу сказать большое спасибо за тему.
страшно представить,что будет ,когда этот человек узнает,что в паскале есть процедуры и функции. [Ответ]

Найджел,
Тут на помощь придут Snusmumrik, и X0R [Ответ]

списки,деревья?
хеш? [Ответ]

Сообщение от :
списки,деревья?

Можно.

Сообщение от :
хеш?

Задание надо смотреть, а то мож почитать литературку и написать... [Ответ]

вот первая задачка насколько я ее понял

var
a : array[0..9] of real;
i, k : integer;
sum : real;

begin
writeln('Vvedite elementy massiva:');
for i := 0 to 9 do read(a[i]);
readln;

k := 1;

while ((a[k] < 0) = (a[k - 1] < 0)) and (k < 10) do inc(k);

writeln('index = ', k);

for i := k to 9 do
sum := sum + a[i];

writeln('sum = ', sum : 0 : 2);
end. [Ответ]

по поводу второй - я так понял что нужна длинная арифметика

type
tLong = array[1..30001] of byte;

var
a, b : tLong;
la, lb : integer;

procedure readNum(var n : tLong; var ln : integer);
var
i, j, t : integer;
ch : char;
begin
i := 0;

while not EOLN do begin
read(ch); inc(i); n[i] := ord(ch) - ord('0');
end;

readln;

ln := i; j := i; i := 1;

repeat
t := n[i]; n[i] := n[j]; n[j] := t;
inc(i); dec(j);
until i > j;
end;

procedure add(var a, b : tLong; var la, lb : integer);
var i, r : integer;
begin
if la < lb then la := lb;
r := 0;

for i := 1 to la + 1 do begin
r := a[i] + b[i] + r;
a[i] := r mod 10;
r := r div 10;
end;

if a[la + 1] <> 0 then inc(la);
end;

var
ii : integer;
begin
readNum(a, la); readNum(b, lb);
add(a, b, la, lb);

for ii := la downto 1 do write(a[ii]); writeln;
end. [Ответ]

Сообщение от Xtnshtcgjkjdbyjq:
Памагите ришить зодачу напаскале. Дано два числа. Их нада слажить. Ризультат вывисти на икран.

Сообщение от =:
СтепаныЧ[=]по поводу второй - я так понял что нужна длинная арифметика

type
tLong = array[1..30001] of byte;

var
a, b : tLong;
la, lb : integer;

procedure readNum(var n : tLong; var ln : integer);
var
i, j, t : integer;
ch : char;
begin
i := 0;

while not EOLN do begin
read(ch); inc(i); n[i] := ord(ch) - ord('0');
end;

readln;

ln := i; j := i; i := 1;

repeat
t := n[i]; n[i] := n[j]; n[j] := t;
inc(i); dec(j);
until i > j;
end;

procedure add(var a, b : tLong; var la, lb : integer);
var i, r : integer;
begin
if la < lb then la := lb;
r := 0;

for i := 1 to la + 1 do begin
r := a[i] + b[i] + r;
a[i] := r mod 10;
r := r div 10;
end;

if a[la + 1] <> 0 then inc(la);
end;

var
ii : integer;
begin
readNum(a, la); readNum(b, lb);
add(a, b, la, lb);

for ii := la downto 1 do write(a[ii]); writeln;
end.
/ message

*

controls

Стипаныч, что ты курил? Только честно. [Ответ]

Сообщение от X0R:
Может фирму откроем? Я ищу клиентов, а потом решаем. Типа "Смерть преподам, свободу ученикам"

Судовольствием.. [Ответ]

Program Sum;
var x,y:real;
Function Summa(a,b:real):real;
begin
summa:=a+b
end;
Begin{Main}
writeln('Введи первое число');
readln(x);
writeln('Введи второе число');
readln(y);
writeln(summa(x,y));
writeln('задача на полтинник))');
readln
End.{Main}

ага?)) но так, как загнался Степаныч-это надо сильно пить. и курить. [Ответ]

Сообщение от :
begin
writeln('Vvedite elementy massiva:');
for i := 0 to 9 do read(a[i]);
readln;

k := 1;

while ((a[k] < 0) = (a[k - 1] < 0)) and (k < 10) do inc(k);

writeln('index = ', k);

for i := k to 9 do
sum := sum + a[i];

writeln('sum = ', sum : 0 : 2);
end.

Мдя, чему равно начальное значение sum ?! [Ответ]