Основне меню  

   

Реклама  

Скачуйте відеуроки для створення сайту за допомогою SMS Joomla 

реклама

 

 

   

Ми в Facebook  

Калькулятор расчета пеноблоков смотрите на этом ресурсе
Все о каркасном доме можно найти здесь http://stroidom-shop.ru
Как снять комнату в коммунальной квартире смотрите тут comintour.net
   

Реклама в мережі  

   

Статистика  

Користувачі
1
Статті
185
Перегляди статей
1124034
   

Пошук по сайту  

   

Ми знаходимось тут  

   

Посібник Delphi  

ДОСТУПНИЙ ВИКЛАД,

ЦІКАВІ ПРИКЛАДИ, ВИХІДНІ КОДИ.

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 500 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Посібник по C#  

 Вивчаємо сучасну мову  програмування C# 7.0

ПРОГРАМУЄМО в VISUAL STUDIO 2017

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 1000 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Випадкове фото  

   

Наш відеоканал  

   

Відвідування сайту  

Яндекс.Метрика

 

   

Відеокурс по С++  

   

Рекомендуємо:  

   


Вправа 1. Розробити проект для обчислення опору електричного  кола, який складається з двох провідників, що ввімкнені послідовно або паралельно.

 

 

                  R1                                  R2

 

Опір R=R1+R2.

 

                                  R1

 

 

                                       R2

Опір 1/R=1/R1+1/R2.

 

Форма буде мати такий вигляд:

 

 Код процедури для кнопки “Обчислити” буде такий:

procedure TForm1.Button1Click(Sender: TObject);

Var R1,R2,R:Real;

begin

r1:=StrToFloat(Edit1.Text);

r2:=StrToFloat(Edit2.Text);

if (r1=0) and (r2=0) then

begin ShowMessage('Потрібно задати величину хоча б одного опору');

Exit;

end;

if RadioButton1.Checked Then r:=r1+r2

else r:=(r1*r2)/(r1+r2);

Edit3.text:=FloatTostrf(r,ffNumber,6,2);

end;

Вправа 2. Розробити проект для зразка тестування. Використати компонент “CheckBox”.

 

Форма повинна мати такий вигляд:

 

 

Код для кнопки результат може бути такий:

procedure TForm1.Button1Click(Sender: TObject);

begin

if   CheckBox3.Checked Then Label1.Caption:='ПРАВИЛЬНО!'

else Label1.Caption:='НЕПРАВИЛЬНО!';

end;

 

Вправа 3. “Поїздка на дачу”.

 

Форма:

 

Код програми:

procedure TForm1.Button1Click(Sender: TObject);

var vid,cina,norma,wartist:real;

mes:string;

begin

if (Length(Edit1.Text)=0) OR

(Length(Edit2.Text)=0) OR (Length(Edit3.Text)=0)   Then

begin SHowMessage('Введіть всі дані');Exit;

end;

vid:=StrToFloat(Edit1.Text);

cina:=StrToFloat(Edit2.Text);

norma:=StrToFloat(Edit3.Text);

wartist:=(vid/100)*norma*cina;

mes:='Поїздка на дачу  ';

If checkBox1.Checked then

begin Wartist:=Wartist*2;

 mes:=mes+'і назад ';

end;

mes:=mes+'буде вам коштувати '+FloatToStrf(wartist,ffNumber,6,2)+'грн';

Label4.Caption:=mes;

end;

 

 

   

Поділіться з друзями

 
   

Сайт для перевірки своїх знань з програмування на сайті:http://www.quizful.net/test

Онлайн тести  для програмістів: https://proghub.ru/


 Розробка сайтів, інтернет-магазинів під ключ. Створення програмного забезпечення для обліку в магазинах,

гуртовнях, ведення власного бізнесу та інших. Написання дипломних та курсових робіт з програмування, баз даних.

 

Звертайтесь за адресою email:kuzbyt@ukr.net

 

 

© (C) Sambir, I.Kuzbyt