Question

Найти стоимость заданного количества ткани. Цена и количество вводятся с клавиатуры. ( Составьте программу Паскаль) Язык программы Паскаль.

Answer 1

Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.

В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.

Answer 2

Я могу помочь вам с написанием программы на языке Паскаль, которая вычисляет стоимость заданного количества ткани. Вот пример возможной программы:

program FabricCost;
var
  price, quantity, cost: real;
begin
  writeln('Введите цену за метр ткани в рублях:');
  readln(price);
  writeln('Введите количество ткани в метрах:');
  readln(quantity);
  cost := price * quantity;
  writeln('Стоимость ткани составляет ', cost:0:2, ' рублей.');
end.

Эта программа объявляет три вещественные переменные: `price`, `quantity` и `cost`. Затем программа запрашивает у пользователя ввести цену за метр ткани и количество ткани в метрах, используя функции `writeln` и `readln`. После этого программа вычисляет стоимость ткани, умножая цену на количество, и выводит результат на экран с двумя знаками после запятой, используя оператор `:0:2`. Я надеюсь, что это поможет вам с вашим заданием.