Построить таблицу соответствий..

@a666 · Регистрация: 19.02.2012

Студворк — интернет-сервис помощи студентам

Построить таблицу соответствий между мерами. Начальное значение меры, шаг изменения этого значения и количество строк в таблице ввести с клавиатуры в режиме диалога. Оформить таблицу как можно лучше, применяя форматы вывода.

1 галлон (брит.) =1,2 галлон (США) = 4,546 л;

@Ev[G]eN · 19.02.2012, 18:22

Pascal

var
  Br, USA, h: real;
  n, i: integer;
begin
  writeln('Введите шаг: ');
  readln(h);
  writeln('Введите начальное значение: ');
  readln(Br);
  writeln('Введите кол-во строк: ');
  readln(n);
  i:=1;
  while i <= n do
  begin
    USA:=Br+0.2;
    writeln(Br:2, ' галлон(брит.) = ':2, USA:2, ' галлон(США) = ':2, (Br*4.546):2, ' л;');
    Br:=Br+h;
    i:=i+1;
  end;
end.

@a666 0 / 0 / 0 Регистрация: 19.02.2012 Сообщений: 36
		1
	Построить таблицу соответствий.. 19.02.2012, 18:10. Показов 1729. Ответов 1 Метки нет (Все метки) Построить таблицу соответствий между мерами. Начальное значение меры, шаг изменения этого значения и количество строк в таблице ввести с клавиатуры в режиме диалога. Оформить таблицу как можно лучше, применяя форматы вывода. 1 галлон (брит.) =1,2 галлон (США) = 4,546 л; 0

Опции темы

Построить таблицу соответствий..

Решение