Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Delphi .NET
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.12.2010, 09:19
Аватар для tristan
tristan tristan вне форума
Прохожий
 
Регистрация: 28.10.2010
Сообщения: 32
Репутация: 2956
По умолчанию Лабораторная работа на Delphi №4

Тема:Массивы. Работа с одномерными массивами.
--------------------------------------------------
Задан одномерный массив B(10), заполненный произвольным образом. Подсчитать количество элементов массива, больших заданного числа K. Вывести результат, используя Edit.
Ответить с цитированием
  #2  
Старый 23.12.2010, 10:55
stil stil вне форума
Новичок
 
Регистрация: 24.11.2010
Сообщения: 91
Репутация: 41
По умолчанию

Код:
var b: array [0..9] of integer;{массив с числами}
    i:integer;
begin
randomize;
Edit2.Text:='0';{обнуляем поле чтобы ошибки не было}
memo1.Lines.Clear;
for i:=0 to 9 do begin
  b[i]:=random(StrToInt(Edit1.text)*2);{случайное число 'берем 0..К*2'}
  memo1.Lines.Add(IntToStr(b[i]));
  if b[i]>StrToInt(Edit1.text){проверяем больше оно К, если да} 
    then Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1);{увеличеваем на единицу число больших К}
end;
для наглядности можешь добавить то что красным

Последний раз редактировалось stil, 23.12.2010 в 12:31.
Ответить с цитированием
  #3  
Старый 23.12.2010, 11:52
Аватар для tristan
tristan tristan вне форума
Прохожий
 
Регистрация: 28.10.2010
Сообщения: 32
Репутация: 2956
По умолчанию

Stil, извени меня за нагласть, но ты бы не мог хотябы в двух словах объяснить, что программа делает. А то я ввожу значения, а он мне какий то значения выдает которые я не понимаю, как он эти числа получил. Еще раз извините меня. И спасибо за первую программу.
Ответить с цитированием
  #4  
Старый 23.12.2010, 14:02
Аватар для tristan
tristan tristan вне форума
Прохожий
 
Регистрация: 28.10.2010
Сообщения: 32
Репутация: 2956
По умолчанию

Stil, огромное вам спасибо!!!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:48.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter