Информатика 10 класс в паскале товары двух видов. запросить с клавиатуры для каждого товара цену, количество в начале рабочего дня и количество проданного товара (и одного и другого) за день. вывести выручку от продажи двух товаров за день.
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :) program Project1; var TotalA, TotalB, SoldA, SoldB : integer; priceA, priceB, sum: real; begin Write(' Введите цену товара "А":'); Readln(priceA); Write(' Введите количество товара "А" в начале рабочего дня:'); Readln(TotalA); Write(' Введите количество проданного товара "А":'); Readln(SoldA); Write(' Введите цену товара "Б":'); Readln(priceB); Write(' Введите количество товара "Б" в начале рабочего дня:'); Readln(TotalB); Write(' Введите количество проданного товара "Б":'); Readln(SoldB); sum:= ((priceA*SoldA)+(priceB*SoldB)); writeln('Выручка от продажи двух товаров за день:', sum:5:2); readln; end.
Хорошо, я буду выступать в роли школьного учителя и постараюсь максимально подробно и понятно объяснить решение данной задачи.
В данной задаче необходимо составить блок-схему алгоритма, который будет решать поставленную задачу.
1. Первый блок-схемы - это ввод данных, которые нужны для выполнения задачи. В данном случае у нас есть число a, которое равно 9.
2. Следующий блок - это проверка, есть ли у числа a делитель, не равный 1 и самому числу. Для этого зайдем внутрь этого блока и воспользуемся циклом. В цикле будем последовательно проверять все числа i, начиная с 2 до a-1. Для каждого i проверяем, делится ли a на i без остатка. Если делится, то это означает, что число a имеет делитель, не равный 1 и самому числу. В таком случае мы переходим к следующей части алгоритма.
3. Третий блок - это вывод результата. Здесь мы выводим на экран сообщение "Число а - составное" (т.е. оно имеет делитель, не равный 1 и самому числу).
4. В конце алгоритма добавляем блок условия. Если же мы не нашли делитель отличный от 1 и самого числа, то выводим на экран сообщение "Число а - простое" (т.е. оно не имеет делителей, кроме 1 и самого числа).
Получается следующая блок-схема алгоритма для решения данной задачи:
Ввод данных
|
\ /
[ a = 9 ]
|
\ /
Проверка
|
\ /
[ i = 2 ]
|
\ /
[ a % i == 0 ? ]
|
\ /
[ i++ ]
|
\ /
[ i < a - 1 ? ]
|
\ /
| /- Да
| |
\ / \- Нет
Вывод результата
|
\ /
Условие
|
\ /
Конец
Надеюсь, что мое пошаговое объяснение и блок-схема помогли вам понять, как решить данную задачу. Если у вас есть еще вопросы, не стесняйтесь задавать.
А) Первым шагом я установлю все обновления для операционной системы Windows 7. Это необходимо для обеспечения безопасности работы компьютера, исправления возможных ошибок и улучшения производительности. Также я проверю, что все драйверы установлены и обновлены, чтобы гарантировать правильную работу компьютера.
Б) В данном случае я бы выбрал операционную систему Windows 10. Она является более современной и имеет множество преимуществ по сравнению с Windows 7. Windows 10 обеспечивает более быструю работу, большую защиту от вредоносного программного обеспечения и надежность. Кроме того, у фирмы есть официальная лицензия на Windows 10, поэтому это будет правильным выбором.
В) Для корректной работы на данном компьютере мне понадобится установить минимум три программы:
1. 1С Предприятие - это основная программа, с которой будет работать фирма. Она является неотъемлемой частью ее деятельности и используется для управления бизнес-процессами, ведения учета, аналитики и других задач, связанных с работой предприятия.
2. Microsoft Office - в состав этого программного пакета входит Microsoft Excel, который позволит работать с таблицами и проводить различные расчеты и анализ данных. Также Office включает в себя Outlook - почтовый клиент, который будет использоваться для работы с почтой.
Объединение всех этих программ в едином пакете обеспечит удобство работы, совместимость и интеграцию.
Основываясь на этих аргументах, я рекомендую установить операционную систему Windows 10, так как это обновленная и безопасная ОС с наличием лицензии. Для корректной работы компьютера необходимо установить программы 1С Предприятие, Microsoft Office (включая Excel и Outlook) для работы с таблицами и почтой соответственно.
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.