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

   

Пошук роботи!  

Вакансії C# developer

Работа в Украине

   

Реклама  

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

реклама

 

 

   

Ми в Facebook  

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

Статистика  

Користувачі
3
Статті
197
Перегляди статей
1642404
   

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

   

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

   

Посібник 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. «Простий калькулятор»

 

Задача. Розробити проект в якому можна знаходити суму двох введених чисел, різницю, добуток та частку.

1.       Задайте формі потрібних розмірів та  назву формі «Калькулятор»

2.       Розмістіть на формі потрібні компоненти за зразком, а саме два компоненти Edit, Label1, чотири кнопки Button для математичних дій та кнопки : Очистка та Вихід.

3.      Для того, щоб  мітка не змінювала  свої розміри під час роботи проекту, слід присвоїти їй властивості Autosize значення False. Для мітки краще вибрати білий колір – властивість Color.

 

4.       Переходимо у вікно коду та оголошуємо змінні після слів var  Form1: TForm1;

 a, b, r: Real;

5. Для кожної з кнопок створюємо відповідні процедури, текст яких буде виглядати так:

 

procedure TForm1.Button1Click(Sender: TObject);// очистка

begin

Edit1.Clear;

Edit2.Clear;

Label1.Caption:='';

end;

 

procedure TForm1.Button3Click(Sender: TObject);//сума

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

r:=a+b;

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button4Click(Sender: TObject);// різниця

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

r:=a-b;

Label1.Caption:=FloatToStr(r);

 

end;

procedure TForm1.Button5Click(Sender: TObject);//добуток

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

r:=a*b;

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button6Click(Sender: TObject);//частка

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

r:=a/b;

Label1.Caption:=FloatToStr(r);

end;

 

Для переведення рядкових величин в дійсні числа при читанні чисел з Edit1 та Edit2 використано функцію перетворення StrToFloat. 

 Проект2. «Інженерний калькулятор»

Задача. Доповнити проект «Простий калькулятор» додатковими функціями, а саме: sin, cos, tg, ctg , квадрат числа, корінь квадратний, модуль тощо.

1.       Відкрийте проект «Простий калькулятор»

2.       Поставте на форму ті компоненти, які потрібно для цього проекту.

3.       Запрограмуйте кнопки для виконання потрібних функцій: sin, cos, tg, ctg, x^2, sqrt, abs, x^3. Для цього потрібно двічі клацнути на потрібну кнопку і написати відповідний код програми.

 

 

4.       Відповідні процедури повинні бути записані таким чином:

 

procedure TForm1.Button9Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=Sin(a);

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button7Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=cos(a);

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button13Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=Sin(a)/cos(a);

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button11Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=cos(a)/Sin(a);

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button8Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=Sqr(a);

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button10Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=Sqrt(a);

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button12Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=abs(a);

Label1.Caption:=FloatToStr(r);

end;

 

procedure TForm1.Button14Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

r:=a*a*a;

Label1.Caption:=FloatToStr(r);

end; 

Проект3. «Cтандартні функції мови Object Pascal»

1)      Запустіть Delphi

2)      Створіть проект для обчислення виразу:

 

 

 Дайте назву проекту: Обчислення виразу.

3)      Розмістіть на формі потрібні компоненти та задайте потрібні властивості за зразком.

4)      На формі розмістіть компонент Image для вставки напису виразу, Label1, Label2, Edit1, Edit2 та дві кнопки Button: Обчислити та Вихід.

5)      Опишіть змінні x, y типу real .

6)      Для кнопки Обчислити напишіть процедуру для обчислення виразу та виводу результату в поле Edit2.

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

procedure TForm1.Button1Click(Sender: TObject);

begin

x:=StrToFloat(Edit1.Text);

y:=sqr(x)+sqrt(abs(sin(x)+cos(x)))-sqr(sin(x));

Edit2.Text:=FloatToStrf(y,ffNumber,6,3);

end;

Щоб вивести число у певному форматі використали таку функцію: FloatToStrf(y,ffNumber,6,3), де 6 – всіх цифр в результаті, 3 – кількість цифр після коми.

 Кнопку Вихід запрограмуйте так:

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

 

 

   

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

Соціальні мережі

   

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

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


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

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

 

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

 

 

© (C) Sambir, I.Kuzbyt