|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.06.2016, 17:25 | #1 |
Пользователь
Регистрация: 18.06.2016
Сообщений: 21
|
Delphi Массивы
Помогите с заданиям
1.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100,200]. Найти сумму отрицательных элементов. 2.Найти количество тех элементов, значения которых положительны и не превосходят заданного числа А. 3.Найти номер последней пары соседних элементов с разными знаками. Код HTML:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Edit2: TEdit; GroupBox1: TGroupBox; Button2: TButton; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; Label2: TLabel; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; n,sum: integer; m:array of integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin checkbox1.Checked:=false; edit2.Clear; edit4.Clear; randomize; n:=strtoint (edit1.Text); setlength (m,n); for i:=0 to n-1 do begin m[i]:=round(sin(random(-100))*200); edit2.Text:=edit2.Text+' '+ inttostr(m[i]); end; end; procedure TForm1.CheckBox1Click(Sender: TObject); var i:integer; begin sum:=0; for i:=0 to n-1 do if m[i]<0 then sum:=sum+m[i]; edit4.Text:=FloatToStr(sum); end; procedure TForm1.CheckBox2Click(Sender: TObject); var i,a:integer; begin a:=StrToInt(Edit5.Text); end; end. |
19.06.2016, 05:06 | #2 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
Код:
|
19.06.2016, 11:20 | #3 |
Пользователь
Регистрация: 18.06.2016
Сообщений: 21
|
Спасибо.
Заменить минимальный элемент массива на средний (количество элементов – нечетно). Заменить нулями элементы массива между минимальным по модулю и максимальным по модулю, кроме их самих. Из элементов массива D сформировать массив A той же размерности по правилу: элементы с первого по k-ый находятся по формуле Ai = -Di2, остальные по формуле Ai = Di-1. А как дописать? |
19.06.2016, 17:40 | #4 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
Код:
Последнее (про массив D) не понял! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Массивы (delphi 7) | Rondo | Помощь студентам | 1 | 12.12.2010 20:25 |
delphi-массивы | RsGoLd | Помощь студентам | 7 | 10.12.2010 18:24 |
Массивы. Delphi | gree | Помощь студентам | 10 | 11.05.2009 22:11 |
Массивы Delphi | Tesa | Помощь студентам | 1 | 06.10.2008 22:33 |