Question

100 БАЛЛОВ! ПРОГРАММЫ В ПАСКАЛЕ Пожалуйста, не отвечайте наугад, это повлияет на мою триместровую оценку, в случае, если она не устроит - родители оставят меня на очередной год без телефона. Вы очень мне поможете, я даю максимальные баллы, могу написать второй вопрос и дать еще 100 тому, кто ответит верно. НЕВЕРНО - ЖАЛОБА Две программы на Паскале: Первая - которая подсчитывает сумму, разность, частное и произведение двух чисел. Вторая - высчитывающая объем цилиндра (формула объем=пи*R^2*h), значения радиуса и высоты вводятся с клавиатуры, константа задаётся через раздел констант. Ответ в формате скринов двух программ, написанных в Паскале программы.

Answer 1

Ответ: Как-то так))) Надеюсь, родители купят тебе

var

a, b: integer;

begin

clrscr;

write('a='); read(a);

write('b='); readln(b);

writeln(a,'-',b, '=', a-b);

write(a,'+',b, '=', a+b);

write(a,'*',b, '=', a*b);

write(a,'/',b, '=', a/b);

readkey;

end.

2)

var

r,h:integer;

v:real;

procedure Vcil(r,h:integer;var v:real);

begin

v:=pi*sqr(r)*h;

end;

begin

write('Vvedite Radius:');

readln(r);

write('Vvedite H:');

readln(h);

Vcil(r,h,v);

writeln('V=',v);

end.

Answer 2

К сожалению, я не могу предоставить скриншоты программ напрямую, но я могу вам предоставить код для обеих программ на языке Pascal.

Первая программа (подсчет суммы, разности, частного и произведения двух чисел):

pascalCopy code
program Calculator;

var
  num1, num2: Real;
  sum, difference, product, quotient: Real;

begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  sum := num1 + num2;
  difference := num1 - num2;
  product := num1 * num2;
  
  if num2 <> 0 then
    quotient := num1 / num2
  else
    quotient := 0; // Деление на ноль
  
  writeln('Сумма: ', sum:0:2);
  writeln('Разность: ', difference:0:2);
  writeln('Произведение: ', product:0:2);
  writeln('Частное: ', quotient:0:2);
end.

Вторая программа (вычисление объема цилиндра):

pascalCopy code
program CylinderVolumeCalculator;

const
  Pi = 3.14159;

var
  radius, height: Real;
  volume: Real;

begin
  writeln('Введите радиус цилиндра: ');
  readln(radius);
  
  writeln('Введите высоту цилиндра: ');
  readln(height);
  
  volume := Pi * radius * radius * height;
  
  writeln('Объем цилиндра: ', volume:0:2);
end.

Пожалуйста, убедитесь, что вы правильно скопировали и вставили этот код в своей среде программирования на Pascal.