М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
WiTeKHasky
WiTeKHasky
29.06.2021 22:42 •  Информатика

Я создал калькулятор на паскаль и хочется его оформить, как полноценный калькулятор - кнопки, экран вывода, вообщем полноценное приложение. Как мне это сделать?

👇
Ответ:
Ivanka23
Ivanka23
29.06.2021

Необходимо скачать и поставить среду Delphi.

В ней есть визуальные компоненты, кнопки и т.д.

В интернете есть много примеров но программу

скорее всего придётся модифицировать.

4,7(15 оценок)
Открыть все ответы
Ответ:
liza7634578
liza7634578
29.06.2021

1+2+3+4+5+6+7+8+9+10+11+12=78

78:2=39

Делим так, чтобы в обеих частях сумма чисел была 39. Для этого линия раздела должна проходить между 3 и 4, а также между 9 и 10. В одной половине 10+11+12+1+2+3=39 и в другой 4+5+6+7+8+9=39

Разложим 78 на простые множители:

78 | 2

39 | 3

13 | 13

  1

Так как на циферблате всего 12 чисел, получаем, что его ещё можно разделить на 3 и на 6 частей, чтобы суммы чисел в частях были равны:

78:3=26 (11+12+1+2=26, 9+10+3+4=26, 5+6+7+8=26)

78:6=13 (12+1=13, 11+2=13,10+3=13, 9+4=13, 8+5=13, 7+6=13)

4,7(53 оценок)
Ответ:
KoRiiZa
KoRiiZa
29.06.2021

Массив данных о стоимости товаров зададим в виде целочисленных констант

program primer_1;
const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58);
 i,min,k: integer;
 begin

min:=a[1]; 

for i:=2 to 12 do    if a[i]<min then

                                             begin 

                                              min:=a[i];
                                              k:=i;
write('минимальная стоимость ', min, '   индекс' ,k)
end.

Или скорее всего этот вариант

program primer_1;
var a: array[1..12] of integer;
i, min, k: integer;
begin
for i:=1 to 12 do read(a[i]);{Ввод стоимостей товаров}
min:=a[1];
k:=0;
for i:=2 to 12 do
if a[i]<min
then
begin
min:=a[i];
k:=i;
end;
write('мин. сто-мость ', min, ' индекс ' ,k)
end. 

4,5(30 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ