Напишите программы на языке Паскаль!

1. Как определить стоимость бензина для разных расстояний (200 км, 400 км, 600 км, 800 км, 1000 км), если расход бензина на 100 км составляет 9 л, а цена одного литра равна х руб?
2. Как распечатать таблицу стоимости порций сыра по 100 г, 200 г, 300 г, 400 г, 500 г, 600 г, 700 г, если цена 1 кг сыра составляет К рублей?

Информатика 8 класс Программирование на Паскале программы на Паскале стоимость бензина таблица стоимости сыра расход бензина цена литра бензина порции сыра цена сыра вычисление стоимости информатика 8 класс Новый

Давайте разберем обе задачи по порядку и напишем программы на языке Паскаль для каждой из них.

Задача 1: Определение стоимости бензина для разных расстояний

Мы знаем, что расход бензина составляет 9 литров на 100 км. Значит, для любого расстояния мы можем рассчитать, сколько литров бензина потребуется, а затем умножить это количество на цену одного литра бензина (х руб). Для этого мы создадим программу, которая будет запрашивать у пользователя цену бензина и затем рассчитывать стоимость для заданных расстояний.

1. Определим переменные:
• расстояние (должно быть массивом значений: 200, 400, 600, 800, 1000)
• расход бензина на 100 км (константа 9)
• цена за литр (переменная х)
• стоимость бензина (переменная)
2. Создадим цикл, который будет проходить по всем расстояниям.
3. Внутри цикла рассчитаем количество литров бензина и стоимость.

Вот пример программы:

program FuelCost;
var
    distances: array[1..5] of integer = (200, 400, 600, 800, 1000);
    consumption_per_100km: real = 9;
    price_per_liter, liters_needed, total_cost: real;
    i: integer;
begin
    writeln('Введите цену одного литра бензина (в рублях):');
    readln(price_per_liter);

    writeln('Расчет стоимости бензина для различных расстояний:');
    writeln('Расстояние (км)    Стоимость (руб)');
    for i := 1 to 5 do
    begin
        liters_needed := (distances[i] / 100) * consumption_per_100km;
        total_cost := liters_needed * price_per_liter;
        writeln(distances[i]:10, '        ', total_cost:10:2);
    end;
end.

Задача 2: Распечатка таблицы стоимости порций сыра

В этой задаче мы будем рассчитывать стоимость порций сыра весом от 100 г до 700 г. Если цена 1 кг сыра составляет К рублей, то для расчета стоимости порции нужно перевести граммы в килограммы (разделить на 1000) и умножить на цену за 1 кг.

1. Определим переменные:
• вес порции (должен быть массивом значений: 100, 200, 300, 400, 500, 600, 700)
• цена за 1 кг (переменная К)
• стоимость порции (переменная)
2. Создадим цикл, который будет проходить по всем весам порций.
3. Внутри цикла рассчитаем стоимость каждой порции.

Вот пример программы:

program CheeseCost;
var
    weights: array[1..7] of integer = (100, 200, 300, 400, 500, 600, 700);
    price_per_kg, portion_cost: real;
    i: integer;
begin
    writeln('Введите цену 1 кг сыра (в рублях):');
    readln(price_per_kg);

    writeln('Таблица стоимости порций сыра:');
    writeln('Вес (г)    Стоимость (руб)');
    for i := 1 to 7 do
    begin
        portion_cost := (weights[i] / 1000) * price_per_kg;
        writeln(weights[i]:10, '        ', portion_cost:10:2);
    end;
end.

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