Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
GeorgeLight
0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 105
#1

Переделать код, массив - Delphi

01.06.2017, 21:30. Просмотров 79. Ответов 0
Метки нет (Все метки)

Задание : Задан массив из случайных целых чисел. Если произведение элементов массива, кратных 7, больше произведения элементов первой половины массива, то добавить в конец массива 10 элементов - случайных целых чисел.
Нужно чтобы массив выводился(исходный и дополненный), не через label...
И если не сложно, проверьте пожалуйста код на правильность. Спасибо огромное, я не могу сам понять, поэтому прошу помочь!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 var
  r:array of integer;
  n,i,k,p1,p2:integer;
begin
randomize;
val(edit1.text,n,i);
if (i<>0) or (n<2)or odd(n) then
 begin
 showmessage('Введите размер массива четное число >=2');
 edit1.clear;
 edit1.SetFocus;
 exit;
 end;
setlength(r,n);
label1.Caption:='';
for i:=0 to n-1 do
 begin
 r[i]:=1+random(21);
 label1.caption:=label1.Caption+' '+inttostr(r[i]);
 end;
k:=n div 2;
p1:=1;
p2:=1;
for i:=0 to n-1 do
 begin
 if r[i] mod 7=0 then p1:=p1*r[i];
 if i<k then p2:=p2*r[i];
 end;
if p1>p2 then
 begin
 n:=n+1;
 setlength(r,n);
 r[n-1]:=30+random(10);
 label1.Caption:=label1.Caption+' '+inttostr(r[n-1])
 end
else Label2.caption:='Произведение кратных 7 меньше';
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2017, 21:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переделать код, массив (Delphi):

Как код переделать в двумерный массив - Delphi
p:=0; i:=0; while (p=0) and (i&lt;=n-1) do begin i:=i+1; if a&lt;0 then p:=1; end; s:=0; j:=n+1; while (s=0)...

Переделать код - Delphi
memo1.clear; Doc := WebBrowser1.OleObject.Document.GetElementsByTagName('td'); for i := 0 to Doc.Length - 1 do begin El...

Переделать код - Delphi
Doc := WebBrowser1.OleObject.Document.GetElementsByTagName('tr'); for i := 0 to Doc.Length - 1 do begin El := Doc.Item(i); ...

Помогите переделать код - Delphi
1) unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,...

Переделать код в ООП - Delphi
Здравствуйте! Есть код на Delphi с использованием DirectX: Как сделать с него обьектно-ориентированый код? Ну чтобы было...

Надо переделать код - Delphi
У меня есть код перекрестка по которому ездят машины, они ригулируються светофором, мне надо переделать код так чтобы, был только один...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2017, 21:30
Привет! Вот еще темы с ответами:

Переделать код pascal в delphi - Delphi
uses graph; const step = 0.005; a = 3; b = 9; L: double = 4; scale = 12;

Переделать код с использованием StringGrid - Delphi
У меня есть вот такой код, как его переделать для delphi чтобы все действия происходили в stringgrid`e? Надеюсь вы сможете понять...

Как переделать код программы? - Delphi
Как переделать задачу? Нужно, чтобы результат выводился в поле memo на форме Вот код программы program Zadacha_1; var...

переделать код из Pascal в Delphi - Delphi
дана целочисленная матрица размером mxn, элементы которой могут принимать значения от 0 до 100. Различные строки матрицы назовем похожими,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.