Страница 1 из 2
Тупые процеДуры и ФУнкции
Добавлено: 08 окт 2008, 00:17
Mary Yu
Надо описать выражение
http://img399.imageshack.us/my.php?image=01bg5.jpg
вот старая прога
http://img399.imageshack.us/my.php?imag ... 146br3.jpg
а надо описать
в процеДурах и ФУнкциях(лучше традиционных)
Ктонить опишите мне!Не успеваю!Спать хочу,3ое суток сплю по 4 часа!
Чувствую себя трупом..
Re: Тупые процеДуры и ФУнкции
Добавлено: 08 окт 2008, 11:16
Serge_Bliznykov
Программа в картинках.. Это круто ;-)
Мари, ну кто же будет программу с картинку набирать!?!?
Кидайте Вашу программу прямо сюда (только тэги [ CODE] ..ваша программа [ /CODE]
не забудьте...
Re: Тупые процеДуры и ФУнкции
Добавлено: 08 окт 2008, 20:57
Mary Yu
Serge_Bliznykov писал(а):Программа в картинках.. Это круто ;-)
Мари, ну кто же будет программу с картинку набирать!?!?
Кидайте Вашу программу прямо сюда (только тэги [ CODE] ..ваша программа [ /CODE]
не забудьте...
Спаси за совет!
Кому надо тот и наберет)))
Если б приспичило-то набрала.
К программному черту их!я разобралась!
Помогите лучше с матрицами
Задание намбэ уан:
1.Дан целочисленный масив размера N.Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов,а затем-все нечетные числа в порядке убывания их индексов.
-||- ту:
2.Дан массив ненулевых целых чисел размера N.Проверить образуют ли его элементы геометрическую прогрессию,если образуют прогрессию-вывети знаментель,если нет-вывести 0.
Заранее ОРИГАТО годзаймасу!
ну такая тупая в матрицах=^^=
Re: Тупые процеДуры и ФУнкции
Добавлено: 08 окт 2008, 21:44
somewhere
" писал(а):Кому надо тот и наберет)))
Сильно сказано...)) **задумался кому это надо**
Re: Тупые процеДуры и ФУнкции
Добавлено: 08 окт 2008, 23:54
Mary Yu
иэх..снова придетцо разбираться самой..Т.Т грустно
Re: Тупые процеДуры и ФУнкции
Добавлено: 09 окт 2008, 00:15
Serge_Bliznykov
" писал(а):1.Дан целочисленный масив размера N.Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов,а затем-все нечетные числа в порядке убывания их индексов.
Код: Выделить всё
const N = 10;
var
A : array[1..N] of integer;
i : integer;
begin
Randomize;
for i:=1 to N do A[i] := Random(10); {заполнили сл.числами}
{выведем массив на экран - просто для красоты :-) }
for i:=1 to N do Write(A[i]:4);
WriteLn;
{основная программа}
WriteLn('Чётные (в порядке возрастания индексов');
for i:=1 to N do
if Not odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
WriteLn('Нечётные (в порядке уменьшения индексов');
for i:=N downto 1 do
if odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
end.
const N = 10;
var
A : array[1..N] of integer;
i : integer;
begin
Randomize;
for i:=1 to N do A[i] := Random(10); {заполнили сл.числами}
{выведем массив на экран - просто для красоты :-) }
for i:=1 to N do Write(A[i]:4);
WriteLn;
{основная программа}
WriteLn('Чётные (в порядке возрастания индексов');
for i:=1 to N do
if Not odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
WriteLn('Нечётные (в порядке уменьшения индексов');
for i:=N downto 1 do
if odd(A[i]) then WriteLn('A[',i:1,'] = ',A[i]:1);
end.
Re: Тупые процеДуры и ФУнкции
Добавлено: 09 окт 2008, 00:28
Serge_Bliznykov
" писал(а):2.Дан массив ненулевых целых чисел размера N.Проверить образуют ли его элементы геометрическую прогрессию,если образуют прогрессию-вывети знаментель,если нет-вывести 0.
начало из предыдущей задачи...
суть в следующем:
Код: Выделить всё
var
P : extended;
...
P := 0;
if A[1]<>0 then P := A[2] / A[1];
for i:=3 to N do begin
if A[i-1] = 0 then
begin
P:=0;
break;
end;
if abs(P-(A[i] / A[i-1]))>0.0001 then {это сравнение вещественных чисел - через
заданную точность!}
begin
P:=0;
break;
end;
end;
WriteLn('Знаменатель = ',P:10:4);
Re: Тупые процеДуры и ФУнкции
Добавлено: 09 окт 2008, 00:31
Serge_Bliznykov
и проверку на ноль можно убирать - в условии "Дан массив ненулевых целых чисел"
Re: Тупые процеДуры и ФУнкции
Добавлено: 09 окт 2008, 19:35
Mary Yu
if Not odd(A) then WriteLn('A[',i:1,'] = ',A:1);
ЧТО ТАКОЕ "odd?"
я же не разбираюсь в матрицах...
Re: Тупые процеДуры и ФУнкции
Добавлено: 10 окт 2008, 08:41
Serge_Bliznykov
ай-й.. а F1 нажать? А книжки умные почитать?!
и, кстати, никакого отношения к матрицам функция ODD - не имеет!
Эта функция возращает True, если переданное в неё число (параметер) НЕЧЁТНОЕ!
ODD(X) можно заменить на ((X mod 2)=1)
