Основне меню  

   

Реклама  

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

реклама

 

 

   

Ми в Facebook  

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

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

   

Статистика  

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

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

   

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

   

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

   

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

   

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

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

 

   

Посібник Delphi  

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

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

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

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

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

 
   

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

   

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

   

Ми в контактах  

   

Сайти  

Українські уроки про ІТ

Єдина Країна! Единая Страна!

 

Українські уроки про програмування

 

 
   

В цьому блоці уроків будемо розглядати приклади програм написаних на мові Pascal. Задачі будуть з різних предметів та галузей застосування. Уроки будуть подаватися в логічній послідовності від найпростіших - лінійних програм і до складніших. Даний блок уроків буде корисним для учнів шкіл, студентів технікумів, коледжів, а також студентам перших курсів технічних спеціальностей. Код програм будемо писати для середовища Turbo Pascal 7. Звичайно код легко змінити для іншого середовища.

 

Задача 1.

Умова: Якщо на одну шальку терезів посадити Даринку, яка важить n кг, і Наталку, яка важить на 5 кг менше, а на іншу насипати m кг цукерок, то скільки кілограмів цукерок доведеться з'їсти дівчаткам, щоб шальки терезів врівноважились.
Введемо наступні змінні для зберігання необхідних результатів:
N - вага Даринки;
M - вага цукерок;
P - вага цукерок, що необхідно з'їсти дівчинкам.
Тоді програма для розв'язання задачі буде такою:

Program Task_41; 
Uses crt; 
Var M, N, P : real; 
Begin 
Clrscr; 
Write(‘Введіть вагу Даринки   ’); 
Readln(N); 
Write(‘Введіть вагу цукерок, що лежать на терезах’); 
Readln(M); 
P := N + N – 5 – M; 	  {N – 5 – вага Наталки} 
Writeln(‘Дівчаткам необхідно з’їсти ’,P,‘кг цукерок.’); 
Readln;	{Процедура затримує зображення на екрані до натискання клавіші Enter} 
 
End. 

Задача 2.
Умова: Дано два дійсних числа a та b. Обчислити їх суму, різницю, добуток.
Необхідні змінні:
ab - задані числа;
Add - сума чисел;
Sub - різниця чисел;
Multy - добуток чисел.
Програма має наступний вигляд:

Program Task_50; 
Uses crt; 
Var a, b, Add, Sub, Multy : real; 
Begin 
Clrscr; 
Write(‘Введіть два числа  ’); 
Readln(a,b); 
Add := a + b; 
Sub := a – b; 
Multy := a*b; 
Writeln(‘Результати обчислень:’); 
Writeln(‘Сума = ‘, Add :8:2); 
Writeln(‘Різниця = ’, Sub :8:2); 
Writeln(‘Добуток = ’, Multy :8:2); 
Readkey;	{Процедура затримки зображення на екрані до натискання будь-якої клавіші} 
End.


Задача3.

Умова: Визначити, яку роботу необхідно виконати, щоб підняти тіло масою m на висоту h від Землі.
Необхідні змінні:
m - маса тіла;
h - висота підйому тіла;
A - робота.
Математична довідка: 
Робота, необхідна для підняття тіла масою m на висоту h, обчислюється за наступною формулою:
A = mgh,
де g = 9,8 - таблична константа (прискорення вільного падіння).
Програма має наступний вигляд:

Program Task_66; 
Uses crt; 
Var m,h,A : real; 
Begin 
Clrscr; 
Write(‘Введіть масу тіла  ’); 
Readln(m); 
Write(‘Введіть висоту підйому тіла ’); 
Readln(h); 
A := m*h*9.8; 
Writeln(‘Виконана робота дорівнює: ’, А:8:2); 
Readkey; 
End. 

Задача 4.

Умова: Визначити, яку платню одержить на фірмі сумісник за виконану роботу, якщо йому нараховано S грн., а податок становить 20 відсотків. 
Необхідні змінні:
S - сума нарахувань сумісника;
P - реальна платня, що він одержить у касі (за умовою вона становить 80% від нарахувань).
Програма має наступний вигляд:

Program Task_73; 
Uses crt; 
Var P,S : real; 
Begin 
Clrscr; 
Write(‘Введіть суму нарахувань робітника ’); 
Readln(S); 
P := S*0.8; 
Writeln(‘Платня сумісника становить: ’, P:8:2); 
Readkey; 
End. 

Задача 5.

Умова: Дано гіпотенуза і один з катетів прямокутного трикутника. Знайти другий його катет і площу вписаного круга.
Необхідні змінні:
a - катет прямокутного трикутника;
c - гіпотенуза прямокутного трикутника;
b - довжина невідомого катета;
S - площа вписаного круга.
Математична довідка:

  • b другий катет прямокутного трикутника знаходиться за теоремою Піфагора a^2 + b^2 = c^2, звідки випливає, що катет дорівнює:  
  • площа вписаного круга обчислюється за наступною формулою: 

Програма має наступний вигляд:

Program Task_58; 
Uses crt; 
Var a, b, c, S : real; 
Begin 
Clrscr; 
Write(‘Введіть довжину гіпотенузи  ’); 
Readln(с); 
Write(‘Введіть довжину відомого катета  ’); 
Readln(a); 
b := sqrt(sqr(c)-sqr(a)); 
S := Pi*(a+b-c)/2; 
Writeln(‘Довжина невідомого катета: ’, b:8:2); 
Writeln(‘Площа вписаного кола: ’, S:8:2); 
Readkey; 
End. 


Коментарі  

# Андрій 24.02.2018, 13:04
навіщо це і для чого воно використовується в кожній програмі???
Uses crt;

Clrscr;
Відповісти | Відповісти цитуючи | Цитата

Додати коментар

Захисний код
Оновити

   

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

 
   

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


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

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

 

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

 

 

© (C) Sambir, I.Kuzbyt