1. Запустіть середовище Lazarus. 2. Створіть проект для віднімання двох дійсних чисел.

3. Задайте формі розмір 400х400 та дайте їй назву “Віднімання”. Для цього змініть значення властивостей Height – 400, Width – 400, Caption –“Віднімання ” в Інспекторі об’єктів. Змініть колір форми на жовтий.

4. Розмістіть на формі такі компоненти: два компоненти Edit, три Label, одну кнопку Button. Розташуйте їх за зразком:

5. Змініть для вказаних компонентів такі значення властивостей

- Button1: властивість Caption — значення “Результат”;

- Label1: властивість Caption — значення “Різниця”;

- Label2: властивість Caption — значення “Зменшуване”;

- Label3: властивість Caption — значення “Від’ємник”;

6. Для кнопки необхідно створити відповідну процедури. Для цього двічі клацніть по кнопці Результат.

7. Запустіть проект на виконання.

Вікно виконання проекту віднімання двох дійсних чисел.

8. Зробіть скріншоти виконаного проекту в середовищі Lazarus, разом з вікном повідомлень. Окремо зробіть скріншот редактора тексту, створеної форми і вікна виконання проекту віднімання двох дійсних чисел. Вставте скріншоти в текстовий процесор Miсrosoft Word і збережіть під назвою завдання 1.

Завдання 2. ( ів)

1. Відкрийте вікно середовища Lazarus.

2. Відкрийте проект для визначення у скільки разів добуток двох заданих дійсних чисел більший за суму цих чисел.

Пояснення: спочатку потрібно видобути файли з архіву, а потім відкрити файл project1.lpi.

3. Створіть три тестових набори вхідних даних для тестування проекту. Створіть таблицю за зразком у текстовому процесорі Miсrosoft Word.

4. Обчисліть очікувані результати й запишіть їх. Протестуйте проект на ваших тестових даних, порівняйте отримані результати в проекті з вашими в таблиці. Проаналізуйте отримані дані і знайдіть помилку у коді програми, виправте її і протестуйте знову свої тестові дані, запишіть до таблиці. Зробіть скрішоти вікон до всій трьох тестуючи даних до та після виправлення помилки. Вставте скріншоти до текстового документу під таблицею.

4. Збережіть текстовий документ під назвою завдання 2.

Додайте текстові файли (завдання 1 та завдання 2) до архіву і прикріпіть до ДЗ.
УВАГА! Домашні завдання виконуються українською мовою.

1. Запустіть середовище Lazarus. 2. Створіть проект для віднімання двох дійсних чисел. 3. Задайте фо

Показать ответ

Ответ:

мопс73

13.12.2022 14:30

Решение, что называется, "в лоб" (далеко, очень далеко, не самое лучшее):
var s,k1,k5,k10,k50,k100,k500,k1000,k10000:integer;
begin
write('s = '); readln(s);
k1:=0; k5:=0; k10:=0; k50:=0;
k100:=0; k500:=0; k1000:=0; k10000:=0;
while s>=10000 do begin s:=s-10000; k10000:=k10000+1; end;
while s>=1000 do begin s:=s-1000; k1000:=k1000+1; end;
while s>=500 do begin s:=s-500; k500:=k500+1; end;
while s>=100 do begin s:=s-100; k100:=k100+1; end;
while s>=50 do begin s:=s-50; k50:=k50+1; end;
while s>=10 do begin s:=s-10; k10:=k10+1; end;
while s>=5 do begin s:=s-5; k5:=k5+1; end;
while s>=1 do begin s:=s-1; k1:=k1+1; end;
writeln('k10000=',k10000,' k1000=',k1000,' k500=',k500,' k100=',k100,' k50=',k50,' k10=',k10,' k5=',k5,' k1=',k1);
writeln(' Всего купюр = ',k1+k5+k10+k50+k100+k500+k1000+k10000);
end.

Пример:
s = 27879
k10000=2 k1000=7 k500=1 k100=3 k50=1 k10=2 k5=1 k1=4
Всего купюр = 21

0,0(0 оценок)

Ответ:

1234567812445672676

10.02.2021 11:39

Я бы написал по другому

Program vozvedenie_v_stepen;

var a,b:integer;

begin

writeln ('Введите число, которое будем возводить в степень');

readln (a);

writeln ('Введите число, обозначающее степень, в которую будем возводить');

readln (b);

Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));

end.

Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...

Program vozvedenie_v_stepen;
var a,b,c,d:integer;
begin
writeln ( 'Введите число, которое будем возводить в степень' );
readln (a);
c:=a;
writeln ( 'Введите число, обозначающее степень, в которую будем возводить');
readln (b);
for d:= 2 to b do
a:=a*c;
if b=0 then
writeln(1)
else
writeln (c,' в степени ',b,' = ',a);
end.