Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 25
1

Работа по Delphi 7

29.11.2014, 14:19. Просмотров 556. Ответов 3
Метки нет (Все метки)

Доброго времени суток! Прошу помочь с задачей на Delphi : "Вводить имя и возраст пользователя и ответ на вопрос анкеты: Занимаетесь ли Вы каким-либо видом спорта? («да» или «нет») с помощью флажка. Сведения об анкетируемых и их ответы добавлять в поле текстового редактора. Вычислять, сколько из анкетируемых моложе 25 лет ответили «да» на вопрос анкеты. Добавить переключатель значений UpDown для ввода возраста (от 10 до 60 лет)."
Только очень срочно, прошу! Заранее спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2014, 14:19
Ответы с готовыми решениями:

Работа с БД в Delphi
Здравствуйте, уважаемые программисты. У меня такое дело, при выборе нужной строки в таблице и...

Работа в Delphi
Ребята, я тут новенький,только начал изучать программу, помогите написать в Delphi Есть 4 задания...

Работа с БД в Delphi
Добрый вечер, уважаемые программисты. У меня такая проблема: при выборе в таблице строки и нажатии...

Работа с БД в Delphi
Доброго времени господа,может кто знает,как сделать следующее задание?? Предусмотреть вывод...

3
Модератор
62236 / 46526 / 32075
Регистрация: 18.05.2008
Сообщений: 112,468
29.11.2014, 14:52 2
Например так.
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
var
  Form1: TForm1;
  k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var name:string;
    age:byte;
begin
name:=Edit1.Text;
age:=strtoint(Edit2.Text);
name:=name+' '+Edit2.Text;
if CheckBox1.Checked then
 begin
  name:=name+' '+'да';
  if age<25 then inc(k);
 end
else name:=name+' '+'нет';
Memo1.Lines.Add(name);
Edit3.Text:='Количество анкетируемых моложе 25 лет ответили да='+inttostr(k);
Edit1.Clear;
Edit2.Text:='10';
CheckBox1.Checked:=false;
end;
1
Вложения
Тип файла: rar Анкета.rar (169.2 Кб, 2 просмотров)
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 25
29.11.2014, 14:56  [ТС] 3
Спасибо большое! Извиняюсь, если это заняло у Вас много времени.
0
Модератор
62236 / 46526 / 32075
Регистрация: 18.05.2008
Сообщений: 112,468
29.11.2014, 14:58 4
Не нужно извиняться, здесь все делают по желанию и добровольно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2014, 14:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Работа с БД в Delphi
Доброго времени суток. Делаю табель учета рабочего времени. Продумал все основные элементы, но...

Delphi работа с COM
Всем привет! Имеется такой код: unit Unit1; interface uses Windows, Messages,...

Delphi 7 работа с БД
Делаю электронную книгу в delphi Есть база данный со списком книг, при двойном клике на строку в...

работа в Delphi с БД
Подскажите как сделать так, чтобы выбрав значение в DBGrid 'е оно отображалось в label... т.е....


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

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

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