Виконати задачі:
1. В змінних a і b записано вік Альбіни та Аміни. Хто з них старше?
2. Створіть програму для виведення на екран мінімальне та максимальне з чотирьох чисел.
3. Стефанія купила 3 порції морозива і 2 пляшки газованої води, а Михайло – 2 порції того самого морозива і 3 пляшки тієї самої газованої води. Складіть математичну модель і проєкт для визначення, хто з дітей витратив більше грошей або, можливо, вони витратили однакову суму грошей.
4. Вивести на екран номер чверті, якій належить точка з координатами (x, y) при умові, що x та y відмінні від 0.
Ответы
Ответ:
1. Щоб визначити, хто з Альбіни та Аміни старше, ви можете використовувати оператор if-else в Pascal. Ось код для цього:
```pascal
program WhoIsOlder;
var
a, b: Integer;
begin
{ введення віку Альбіни та Аміни }
Write('Введіть вік Альбіни: ');
Readln(a);
Write('Введіть вік Аміни: ');
Readln(b);
{ порівняння віку та виведення результату }
if a > b then
WriteLn('Альбіна старша.');
else if a < b then
WriteLn('Амина старша.');
else
WriteLn('Альбіна і Амина одного віку.');
end.
```
2. Ось програма, яка виводить мінімальне та максимальне з чотирьох чисел:
```pascal
program MinMax;
var
num1, num2, num3, num4, min, max: Integer;
begin
Write('Введіть чотири числа: ');
Readln(num1, num2, num3, num4);
min := num1;
max := num1;
if num2 < min then
min := num2;
if num2 > max then
max := num2;
if num3 < min then
min := num3;
if num3 > max then
max := num3;
if num4 < min then
min := num4;
if num4 > max then
max := num4;
WriteLn('Мінімальне число: ', min);
WriteLn('Максимальне число: ', max);
end.
```
3. Для визначення, хто витратив більше грошей між Стефанією і Михайлом, можна створити такий проєкт:
```pascal
program MoneySpent;
var
StefaniaIceCream, StefaniaSoda, MykhailoIceCream, MykhailoSoda: Real;
begin
{ Вартість однієї порції морозива та однієї пляшки газованої води }
const IceCreamCost = 3.0;
const SodaCost = 2.0;
{ Вартість покупок Стефанії та Михайла }
StefaniaIceCream := 3 * IceCreamCost;
StefaniaSoda := 2 * SodaCost;
MykhailoIceCream := 2 * IceCreamCost;
MykhailoSoda := 3 * SodaCost;
if StefaniaIceCream + StefaniaSoda > MykhailoIceCream + MykhailoSoda then
WriteLn('Стефанія витратила більше грошей.');
else if StefaniaIceCream + StefaniaSoda < MykhailoIceCream + MykhailoSoda then
WriteLn('Михайло витратив більше грошей.');
else
WriteLn('Стефанія і Михайло витратили однакову суму грошей.');
end.
```
4. Щоб вивести номер чверті для точки з координатами (x, y), використовуйте наступний код:
```pascal
program PointQuadrant;
var
x, y: Real;
begin
Write('Введіть координату x: ');
Readln(x);
Write('Введіть координату y: ');
Readln(y);
if (x > 0) then
begin
if (y > 0) then
WriteLn('Точка знаходиться в першій чверті.')
else
WriteLn('Точка знаходиться в четвертій чверті.');
end
else
begin
if (y > 0) then
WriteLn('Точка знаходиться в другій чверті.')
else
WriteLn('Точка знаходиться в третій чверті.');
end;
end.
```
Ці коди допоможуть вам вирішити вказані завдання в Pascal.
Объяснение: