|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.12.2015, 19:06 | #1 |
Новичок
Джуниор
Регистрация: 12.12.2015
Сообщений: 3
|
Калькулятор валюты
Здравствуйте! Я Студент 2го курса С группы Ис!
И у нас 2-рая пара практика по Delphi7(то-есть первый раз в ней работаем),думаю вы поняли что у меня мало знаний с Delphi7. Взял на дом практическую работу, чтоб поучиться. =================================== ======== Суть работы заключается в том что я должен написать программу в среде Delphi7. ПО- должно вычеслить... нужно ввести курс доллара и сумму которую я хочу перевести в доллар тоеть рубль---> в доллар. И должно показать ответ. и тоже самое ток в место доллара евро. Вот скрин с моего рабочего стола, там видна работа программы и её код вычесления. При проверки программы, ответ не выдает... Прошу помочь с этим.В колледж это особо и не нужно, нужно для меня,чтоб я знал. Если вам не трудно обьесните что к чему.( что это такое и что делает ) Это если вам не трудно!) |
12.12.2015, 19:22 | #2 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
слышь, гаудеамус, а не для тебя ли я писал вот эту лабу?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
13.12.2015, 07:43 | #3 |
Новичок
Джуниор
Регистрация: 12.12.2015
Сообщений: 3
|
У вас есть урок по этому видео или лекция ? Чтоб я мог тоже написать !
Последний раз редактировалось Stilet; 13.12.2015 в 14:02. |
13.12.2015, 09:40 | #4 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
13.12.2015, 14:03 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
13.12.2015, 14:48 | #6 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
13.12.2015, 15:02 | #7 | |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Цитата:
|
|
13.12.2015, 15:11 | #8 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
13.12.2015, 15:35 | #9 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Шутники блин )))
I'm learning to live...
|
14.12.2015, 20:47 | #10 |
Новичок
Джуниор
Регистрация: 12.12.2015
Сообщений: 3
|
Скиньте исходник ! Если можно ! Со своей программой я разобрался !
Вот мой исходник если интересно( но я не дописал код ! ) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Edit3: TEdit; Label3: TLabel; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure button3click(Sender: TObject); procedure button1click(Sender: TObject); procedure button2click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a,b,c,d,g:real; implementation {$R *.dfm} procedure Tform1.button1click(Sender: TObject); begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=StrToFloat(Edit3.Text); d:=c/a; g:=c/b; Edit4.Text:=FloatToStr(d); Edit5.Text:=FloatToStr(g); if Edit1.Text=' ' then showmessage('Введите курс доллара'); if Edit2.Text=' ' then showmessage(' Введите курс евро!'); end; procedure Tform1.button2click(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; end; procedure Tform1.button3click(Sender: TObject); begin close; end; end. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
CSS на конвертор валюты | topas07 | HTML и CSS | 3 | 24.12.2014 02:36 |
конвертер валюты! | BlackFishSQL | Общие вопросы Delphi | 3 | 08.06.2011 19:19 |
Подпрограмма перевода валюты | ManOfSky | C# (си шарп) | 2 | 16.05.2011 10:53 |
Обмен интернет-валюты | Freemaks | Свободное общение | 4 | 29.07.2010 18:08 |