Question

написать программу,находящую скорость или время или пройденное расстояние в зависимости от запроса пользователя.(авс паскаль)

Answer 1

Program fgg;

var
x: String[10];
t, v, s: Real;


begin
Write('Что будем искать?: ');
ReadLn(x);
if x = 'скорость' then
begin
Write('Введите расстояние: ');
ReadLn(s);
Write('Введите время: ');
ReadLn(t);
WriteLn('Скорость=', s / t);
end
else if x = 'время' then
begin
Write('Введите расстояние: ');
ReadLn(s);
Write('Введите скорость: ');
ReadLn(v);
WriteLn('Время=', s / v);
end
else if x = 'расстояние' then
begin
Write('Введите скорость: ');
ReadLn(v);
Write('Введите время: ');
ReadLn(t);
WriteLn('Расстояние=', v * t);
end
else
WriteLn('Неверно указано, что будем искать.');
end.

Answer 2

Конечно! Вот пример программы на языке Pascal (Delphi), которая запрашивает у пользователя входные данные и рассчитывает скорость, время или пройденное расстояние в зависимости от запроса пользователя:

pascalCopy code
program Calculator;

var
  choice: integer;
  distance, time, speed: real;

begin
  writeln('Выберите, что вы хотите вычислить:');
  writeln('1. Скорость');
  writeln('2. Время');
  writeln('3. Пройденное расстояние');
  readln(choice);

  case choice of
    1: begin
         writeln('Введите пройденное расстояние (в километрах): ');
         readln(distance);
         writeln('Введите время (в часах): ');
         readln(time);
         speed := distance / time;
         writeln('Скорость: ', speed:0:2, ' км/ч');
       end;
    2: begin
         writeln('Введите пройденное расстояние (в километрах): ');
         readln(distance);
         writeln('Введите скорость (в км/ч): ');
         readln(speed);
         time := distance / speed;
         writeln('Время: ', time:0:2, ' ч');
       end;
    3: begin
         writeln('Введите время (в часах): ');
         readln(time);
         writeln('Введите скорость (в км/ч): ');
         readln(speed);
         distance := time * speed;
         writeln('Пройденное расстояние: ', distance:0:2, ' км');
       end;
    else
      writeln('Неверный выбор!');
  end;

  readln;
end.

Эта программа предлагает пользователю выбрать, что он хочет вычислить (скорость, время или пройденное расстояние). Затем она запрашивает необходимые данные от пользователя и выполняет соответствующие вычисления. Результат выводится на экран.