Друзья-программеры можете помочь!!!

[deizart]

Помогите с Делфи ответить решить !!!

Вопросы

Циклические алгоритмы

1. S:=0;x:=2; while x<= 10 do begin s:=s+2*x; x:=x+2 end; При каком значении х произойдет выход из цикла?

Одномерные массивы

1. Один условный оператор: в векторе С подсчитать произведение отрицательных элементов?

Множества

1. Поместите в множественную переменную number только простые числа (простым называется натуральное число больше единицы, имеющее только два делителя: единицу и само это число).

Задачи

1. Циклы. Дано натуральное число n. Вычислить у=1 + 3 + 5 + ... + (2n -1).

2. Матрицы. В прямоугольной вещественной матрице Bnxt найти минимум и его место, а также подсчитать сумму всех элементов матрицы.

[Inclodes]

Вопросы

Циклические алгоритмы

1. S:=0;x:=2; while x<= 10 do begin s:=s+2*x; x:=x+2 end; При каком значении х произойдет выход из цикла?

тк условие у нас <= последняя итерация цикла произойдет при значении X=10

в этой итерации значение X станет равным 12

при последующей проверке значения (while) x не удовлетворит условию и цикл завершится.

---

Одномерные массивы

1. Один условный оператор: в векторе С подсчитать произведение отрицательных элементов?

а колво элементов массива есть?

i:=1;
while ibegin
if a[i]<0 then do c:=c*a[i];
end;

c:=1;

где k колво элементов массива

---

Множества

1. Поместите в множественную переменную number только простые числа (простым называется натуральное число больше единицы, имеющее только два делителя: единицу и само это число).

честно говоря совершенно не помню что такое множественные переменные и с чем их едят.

а диапазон чисел из которого нужно выбрать натуральные числа большой?

если большой то прога будет робить долго.

примерно так

пусть в некоторой переменной А будет диапозон чисел из которых нужно выбрать натуральные(т. е от 1 до А)

сразу записываем в number 0 и 1(ибо априори натуральные)

затем

for i:=2 to A do
begin
m:=o;{где m - количество мнжителей у i-го числа}
for j:=i-1 downto 2 do
begin
if (j mod i)=0 then do m:=m+1;
end;
if m=0 then {здесь записываем число в number}
end;
{выводим number}

number и запись в него реализуешь сам

Добавлено спустя 4 минуты 1 секунду:

Задачи

если будет действиельно надо то завтро после 17:00 долби в асю 477-492-549

там разберемся

[TolkienDRR]

1. S:=0;x:=2; while x<= 10 do begin s:=s+2*x; x:=x+2 end; При каком значении х произойдет выход из цикла?

смею предположить что ошибка в этом кусочке текста. думаю выход из цикла должен быть s<=10, а не указанные x<=10.

где k колво элементов массива

k+1. также если отрицательных элементов не найдется, то произведение равно нулю будет, не говоря о бесконечном цикле.

k:=n; //n - размерность массива
c:=0;
i:=1;
while i<=k do begin
 if a[i]<0 then do
  if c=0 then c:=a[i] else c:=c*a[i];
 inc(i);
end;

стандартный модуль сУстем дает возможность определить размерность элементов множества как: number:set of byte.

deizart, будущий дипломированный специалист?

[Inclodes]

TolkienDRR

ну да про ноль то я и забыл совершенно

не выспался просто футбол все таки смотрел)))

[TolkienDRR]

Inclodes, бывает )) вообще редко когда с первого раза написанный код работает без проблем xD

[Inclodes]

редко когда с первого раза написанный код работает без

эт точно

особенно с паскалем

эти поганые двоеточия (:=) вечно где-то теряются

[deizart]

друзья благодарю за помощь с вопросам я разобрался благодаря ВАМ уважаемые.

а вот с задачками у мну проблема: во-второй я немогу реализовать процесс подсчита суммы всех элементов матрицы:

procedure TForm1.Button1Click(Sender: TObject); //Ввод матрицы с помощью ф-и random(100)

begin

for i:=1 to 5 do

for j:=1 to 5 do

StringGrid1.Cells[j-1,i-1]:=IntToStr(random(100));

end;

procedure TForm1.Button2Click(Sender: TObject); //поиск минимума и его место!!

begin

for i:= 1 to 5 do

for j:=1 to 5 do

b[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);

min:=b[1,1];

for i:=1 to 5 do

for j:=1 to 5 do

if b[i,j]

begin

min:=b[i,j];

imin:=i;

jmin:=j;

end;

Label5.Caption:='Минимальный элемент = '+IntToStr(min)+#13+

'Его индексы: '+IntToSTr(imin)+':'+IntToStr(jmin);

end;

а вот с первой пока никак!!!!

[Inclodes]

procedure TForm1.Button1Click(Sender: TObject); //Ввод матрицы с помощью ф-и random(100)

begin

for i:=1 to 5 do

for j:=1 to 5 do

StringGrid1.Cells[j-1,i-1]:=IntToStr(random(100));

end;

procedure TForm1.Button2Click(Sender: TObject); //поиск минимума и его место!!

var summ:integer;

begin

summ:=0;

for i:= 1 to 5 do

for j:=1 to 5 do

begin

b[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);

summ:=summ+b[i,j];

end;

min:=b[1,1];

for i:=1 to 5 do

for j:=1 to 5 do

if b[i,j]

begin

min:=b[i,j];

imin:=i;

jmin:=j;

end;

Label5.Caption:='Минимальный элемент = '+IntToStr(min)+#13+

'Его индексы: '+IntToSTr(imin)+':'+IntToStr(jmin)+'chr(13)'+'сумма элементов массива'+IntToStr(summ);

end;

это подсчет суммы.

твой код я толком не просматривал

но вроде ошибок нет.

ты кста где учишься?

Добавлено спустя 3 минуты 30 секунд:

по первой задаче

i:=1;
y:=0;
while i<=(2*n-1) do
begin
y:=y+i;
i:=i+2;
end;

самый простой способ

[deizart]

ты кста где учишься?

учусь в БКСЭИТ бурятский филиал МЭСИ на заочном