Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

масивчик (

Страницы: < 1 2 3 >
G-leb © (2012-11-16 21:05:00)
Задали массив чисел A (n) , n ≤ 500. Разработать программу, которая вычисляет сумму всех чисел, которые повторяются, и произведение всех чисел, которые не повторяются
///Задайте значение действительным величинам произвольным образом в диапазоне от 0 до 100///

uses SysUtils; const n = 500; type mas = array[1..n] of integer; var a: mas; i: byte; begin writeln('vvod:'); for i:=1 to n do readln(a[i]); writeln('vuvod:'); for i:=1 to n do write(a[i]:n); readln; end.

вот масив .. как дописать чтоб находило похожие и добавляло ... а не походие умножало ?

G-leb (2012-11-17 00:40:00) [21]
не 7 винде не работает ф1

Sha (2012-11-17 00:38:00) [22]
а что такое F1?

G-leb (2012-11-17 00:35:00) [23]
write(a[i]:3:0); что такое 3 и 0 ?

Sha (2012-11-17 00:31:00) [24]
так и с суммой то же самое,
проще по определению считать, что если не было, то mul=1,
как, например, считают 0!=1, и ничего, все довольны

Сергей М. (2012-11-17 00:31:00) [25]

> G-leb

> в айсикю или аське ..
> скайпе *
> или ВК

Вот мне оно надо - заниматься спринтерским ликбезом в час ночи занахаляву ?)

Сергей М. (2012-11-17 00:26:00) [26]

> Sha © (17.11.12 00:16) [29]
>

> mul:= 1;

Здесь довольно сомнительный момент.

Если после вычислений m останется равной 1, то толи не было в массиве уникальных элементов, толи были, но ни одного нулевого среди них не было ...

А если сделать mul:= 0, то тоже хз как трактовать 0 в mul на выходе - толи не было уникальных, толи был один равный нулю

Jeer (2012-11-17 00:21:00) [27]

> Sha © (17.11.12 00:16) [29]
>
> Разбирайся

Бесперспективно, но хотел бы ошибиться.

Sha (2012-11-17 00:16:00) [28]
Разбирайся
program Laba; {$APPTYPE CONSOLE} var a: array [1..500] of double; mul, sum: double; i, j, n: integer; begin write('dimension: '); readln(n); if (n>=1) and (n<=Length(a)) then begin; mul:=1; sum:=0; Randomize; for i:=1 to n do a[i]:=Random (100); for i:=1 to n do write(a[i]:3:0); writeln; for i:=1 to n do begin j:=n; while (j=i) or (j>0) and (a[j]<>a[i]) do dec(j); if j=0 then mul:=mul*a[i] else sum:=sum+a[i]; end; writeln('mul = ', mul); writeln('sum = ', sum); readln; end; end.

G-leb (2012-11-17 00:14:00) [29]
или ВК

G-leb (2012-11-17 00:14:00) [30]
скайпе *

G-leb (2012-11-17 00:14:00) [31]
в айсикю или аське .. удобнее ведь ..

G-leb (2012-11-17 00:11:00) [32]
так с рендомайзом - это будет правильно да .. ? окей.. допустим числа генерирует... теперь их сортируем ..
uses crt; Var a : array [1..500] of integer; n, i, j, k, sum, mul, col: integer; begin clrscr; randomize; write('pazmernost masiva:'); readln(n); for i := 1 to n do a[i] := random (100); for i := 1 to n do write(a[i]:3); { for j:=1 to n-1 do begin for i:=1 to n-j do begin if (k[i] > k[i+1]) then swap(k[i],k[i+1]) } readln; end.

почему у меня
uses
crt; - показывает ошибку

и что значит " :3" вот здесь write(a[i]:3);

Сергей М. (2012-11-17 00:05:00) [33]

> Последним - свечка в задницу

В смысле чтобы в заднице светлее стало, ибо "ученье - свет" ?)

Сергей М. (2012-11-17 00:00:00) [34]

> Jeer © (16.11.12 23:53) [21]

Так ведь сегодняшние студни - это вчерашняя школота..
А там ситуация еще прискорбней..

Сергей М. (2012-11-16 23:55:00) [35]

> почему первое число масиво всегда =0 ?

Ну, положим, не всегда, а только при определенной "фазе Луны")
А управление этой "фазой" как раз и осуществляется оператором Randomize.

> повторяются по 5-10 раз одни и теже сгенерируемые цыфры

Потому что диапазон (100) для массива в n=500 элементов маловат /
Чем больше он будет при неизменном n, тем реже будут генерироваться повторяющиеся числа(а не "цифры")

> там быстрее будет

Это ты мне ?
Я вообще-то никуда не спешу)

Jeer (2012-11-16 23:53:00) [36]
Я просто "плачу" от уровня образования сегодняшних "студентов", а также преподавателей их и чему-то.
Последним - свечка в задницу.

G-leb (2012-11-16 23:44:00) [37]
сереж .. если есть время и желание объяснить и научить .. дай аську .. там быстрее будет .. ))0 я нашел пример "пузырьковой сортировки "

G-leb (2012-11-16 23:43:00) [38]
Var
a : array [1..500] of integer;
n, i, j, k, sum, mul, col: integer;
begin
write('pazmernost masiva:');
readln(n);
for i := 1 to n do
begin
{randomize; }
a[i] := random (100);
end;
for i := 1 to n do write(a[i], ' ');
readln;
end.

вот .. - почему первое число масиво всегда =0 ??? а если {randomize; } написать без {} то повторяются по 5-10 раз одни и теже сгенерируемые цыфры .. ?

Сергей М. (2012-11-16 23:38:00) [39]

> хахах .. мне не известен ни 1 алгоритм сортировки )))

Тут рыдать нужно, ибо факт-то сам по себе скорбный)
а ты зубоскалишь)

G-leb (2012-11-16 23:29:00) [40]
хахах .. мне не известен ни 1 алгоритм сортировки ))) гуглу известен ... у него сейчас спрошу

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »