VPF::[Delphi] Помогите с кодами программ.

zergon

Дата 24.12.2009, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.12.2009

Репутация: нет
Всего: нет

Всем добрый вечер! В универе задали написать коды к двум задачам.Вот условие 2х задач.Нужны только коды программ по этим задачам на языке Delphi6.Помогите, это контрольная.

Задача 1.

Ввести одномерный массив, состоящий из 10 элементов. Значения массива задать функцией Random ®, где R=10.Вывести сформированный массив на экран в компонент Label1.
Найти максимальный среди четных по значению элементов массива и его индекс. Результат вывести на экран в компонент Label2. Процедуру выполнения данного задания оформить в событии Button1Click компонента Button1.

Задача 2.

Ввести одномерный массив, состоящий из 6 элементов. Значения массива ввести в компонент String Grid1. Вывести сформированный массив на экран в компонент Label.
Найти среднее арифметическое отрицательных нечетных элементов массива. Результат вывести на экран в компонент Label2. Процедуру выполнения данного задания оформить в событии Button1Click компонента Button1.

bems

Дата 24.12.2009, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 0
Всего: 88

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Обижено школьников: 8

amsoft

Дата 24.12.2009, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: нет
Всего: 4

задача 1

Код


procedure TForm1.Button1Click(Sender: TObject);
var
X,Y: integer;
MyArray: array [0..9] of integer;
begin
Randomize;
Label1.Caption := '';
Y := 0;
for X := 0 to 9 do
    begin
    MyArray[X] := Random(10);
    Label1.Caption := Label1.Caption + IntToStr(MyArray[X]) + ' ';
    if (not Odd(MyArray[X]) and (MyArray[X] > Y))
    then begin
         Y := MyArray[X];
         Label2.Caption := 'Максимальное четное число равно ' + IntToStr(MyArray[X])+
                           ' в позиции ' + IntToStr(X);
         end;
    end;
if Y = 0 then Label2.Caption := 'В массиве нет четных чисел';
end;

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

mr.Anderson

Дата 24.12.2009, 23:05 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

!
mr.Anderson

Модератор: пожалуйста, один топик - один вопрос! Название темы должно отражать ее суть!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »