Question

Задачи циклические Паскаль: Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10): саженей в метры ( 1 сажень равна 2,1366 м) футов в метры (1 фут равен 0,3048 м) драхм в граммы (1 драхма равна 3,7325 г) унций в граммы (1 унция равна 29,86 г)

Answer 1

Program sagen_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do 
begin
a:=i*2.1366;
writeln (i,' сажень =',a,' м');
end;
end.

program fut_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do 
begin
a:=i*0.3048;
writeln (i,' фут =',a,' м');
end;
end.

program drahm_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do 
begin
a:=i*3.7325;
writeln (i,' драхм =',a,' г');
end;
end.

program unziy_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do 
begin
a:=i*29.86;
writeln (i,' унция =',a,' г');
end;
end.

Answer 2

Вот примеры алгоритмов и программ на языке Pascal для перевода старинных русских мер длины, торгового и аптекарского веса:

Пример алгоритма для перевода саженей в метры:

pascalCopy code
program ConvertSazhenToMeter;
var
  sazhen: real;
  meters: real;
begin
  for sazhen := 1 to 10 do
  begin
    meters := sazhen * 2.1366;
    writeln(sazhen, ' саженей = ', meters, ' метров');
  end;
end.

Пример алгоритма для перевода футов в метры:

pascalCopy code
program ConvertFeetToMeter;
var
  feet: real;
  meters: real;
begin
  for feet := 1 to 10 do
  begin
    meters := feet * 0.3048;
    writeln(feet, ' футов = ', meters, ' метров');
  end;
end.

Пример алгоритма для перевода драхм в граммы:

pascalCopy code
program ConvertDrachmToGram;
var
  drachm: real;
  grams: real;
begin
  for drachm := 1 to 10 do
  begin
    grams := drachm * 3.7325;
    writeln(drachm, ' драхм = ', grams, ' граммов');
  end;
end.

Пример алгоритма для перевода унций в граммы:

pascalCopy code
program ConvertOunceToGram;
var
  ounce: real;
  grams: real;
begin
  for ounce := 1 to 10 do
  begin
    grams := ounce * 29.86;
    writeln(ounce, ' унций = ', grams, ' граммов');
  end;
end.

Вы можете скомпилировать и выполнить каждую из этих программ в своей среде разработки Pascal для выполнения соответствующих преобразований.