Написать лабораторную (работа со стандартными компонентами)

@Otonasi · Регистрация: 31.10.2011

Студворк — интернет-сервис помощи студентам

Вот собственно говоря задание лабраторной в дельфи!

1. Пользователь вводит вещественные числа в компонент Edit , по нажатию кнопки число добавляется в компонент ListBox. Определить:

· Произведение отрицательных;

· Количество чисел по модулю больших 10;

· Есть ли числа без дробной части.

2. Пользователь вводит вещественные числа в компонент Edit , по нажатию кнопки число добавляется в компонент ListBox. Перенести во второй компонент ListBox все положительные числа.

3. Задания 1 и 2 выполнить с компонентом Memo, ввод чисел в компонент Memo производить непосредственно с клавиатуры.

4. Отсортировать строки в компоненте ListBox в алфавитном порядке. Перенести в компонент Memo выделенные строки. Организовать удаление выделенных строк из компонента ListBox.

5. Организовать

· перемещение выделенного текста из компонента Memo1 в компонент Memo2;

· вставку строки, введенной в компонент Edit, в компонент Memo после первой непустой строки;

· удаление из компонента Memo1 строк максимальной длины.

6. Разработать приложение представляющее собой заготовку для письма. На форме должно находиться не менее 3-х компонентов ComboBox , предназначенных для выбора одного из предусмотренных вариантов (например, выбор обращения: господин, госпожа, гражданин; выбор подписи: с уважением, с наилучшими пожеланиями и т.п.) и компоненты Edit и Memo для ввода произвольного текста. В компонент ListBox поместить полученный текст.

@alekola · 12.03.2012, 06:56

1. Пользователь вводит вещественные числа в компонент Edit , по нажатию кнопки число добавляется в компонент ListBox. Определить:
· Произведение отрицательных;
· Количество чисел по модулю больших 10;
· Есть ли числа без дробной части.
-->
располагаем на форме Tedit, TListbox, Tbutton(2шт)
по событию onclick() Tbutton(добавить данные)
listbox1.items.add(edit1.text);
по событию onclick() Tbutton(обработать)
цикл от 0 до listbox1.count -1
в цикле
if abs(strtofloat(listbox1.items[переменнаяцикла] )) > 10 then Количествочисел++(инкрементируем колво числе больше 10)
if strtofloat(listbox1.items[переменнаяцикла] )) < 0 then ПроизведОтриц:=ПроизведОтриц* abs(strtoint(listbox1.items[переменнаяцикла] ));
if strtofloat(listbox1.items[переменнаяцикла] )) <> trunc(strtofloat(listbox1.items[переменнаяцикла] ))) инкрементируем количество без дробной части
конеццикла
Писать в нормальном коде нет времени итак все на блюде. разбирайтесь

Добавлено через 4 часа 40 минут
Так я пришел домой, лови код если не написал сам еще

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
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Add(edit1.Text);
edit1.Clear;
edit1.Focused;
end;
///////////////////////////////////////////////////
procedure TForm1.Button2Click(Sender: TObject);
var
i, own10, noflt, oc : integer; 
po : real;
begin
own10:=0;
noflt:=0;
po:=1;
oc:=0;
for i := 0 to Listbox1.Count - 1 do   begin
if abs(strtofloat(listbox1.Items[i])) > 10 then inc(own10);
if strtofloat(listbox1.Items[i])  < 0 then  begin inc(oc); po:= po * abs(strtofloat(listbox1.Items[i]));  end;
if strtofloat(listbox1.Items[i]) <> trunc(strtofloat(listbox1.Items[i])) then inc(noflt);
 
 end;
 if oc = 0  then po:=0;
 
 showmessage(inttostr(own10)+' '+floattostr(po)+' '+ inttostr(noflt));
 end;

Комменты к говно кодуписать не буду. выше разъяснение

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Otonasi 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 8

	Написать лабораторную (работа со стандартными компонентами) 01.03.2012, 11:55. Показов 1543. Ответов 1 Метки нет (Все метки) Вот собственно говоря задание лабраторной в дельфи! 1. Пользователь вводит вещественные числа в компонент Edit , по нажатию кнопки число добавляется в компонент ListBox. Определить: · Произведение отрицательных; · Количество чисел по модулю больших 10; · Есть ли числа без дробной части. 2. Пользователь вводит вещественные числа в компонент Edit , по нажатию кнопки число добавляется в компонент ListBox. Перенести во второй компонент ListBox все положительные числа. 3. Задания 1 и 2 выполнить с компонентом Memo, ввод чисел в компонент Memo производить непосредственно с клавиатуры. 4. Отсортировать строки в компоненте ListBox в алфавитном порядке. Перенести в компонент Memo выделенные строки. Организовать удаление выделенных строк из компонента ListBox. 5. Организовать · перемещение выделенного текста из компонента Memo1 в компонент Memo2; · вставку строки, введенной в компонент Edit, в компонент Memo после первой непустой строки; · удаление из компонента Memo1 строк максимальной длины. 6. Разработать приложение представляющее собой заготовку для письма. На форме должно находиться не менее 3-х компонентов ComboBox , предназначенных для выбора одного из предусмотренных вариантов (например, выбор обращения: господин, госпожа, гражданин; выбор подписи: с уважением, с наилучшими пожеланиями и т.п.) и компоненты Edit и Memo для ввода произвольного текста. В компонент ListBox поместить полученный текст. 0

Написать лабораторную (работа со стандартными компонентами)

Решение