Составить программу перевода футов в метры (1 фут равен 0,3048 м) (счетчик цикла меняется от 1 до 30).

@D1JleR · Регистрация: 03.06.2011

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

Что я застрял на этих циклах, не знаю в чем причина, но выдает ошибку
Вот что я написал,- Помогите пожалуйста довести дело до ума!

program Project2;

{$APPTYPE CONSOLE}
var f,m,r:real;

begin
write('F= ');
Readln (F);
r:=0.3048;
for m:=1 to 30 do
r:=r*f;
writeln ('Rezul`tat= ',r);
readln;
end.

@TomLindon · 03.06.2011, 12:20

Pascal

uses crt;
var
f,r : real;
m : integer;
begin
clrscr;
Write ('F = ');
ReadLn (F);
r := 0.3048;
  for m := 1 to 30 do
  r := r * f;
  Writeln ('Rezil''tat = ',r);
ReadKey
end.

как я понял, все было написано верно, кроме 12 строчки, символ кавычки ставится как две кавычки, иначе паскалю непонятно. что там написано.
Результат имеет тип real, поэтому он плохо читабелен, как от этого избавится - сказать не могу

@D1JleR · 03.06.2011, 12:25 **[ТС]**

Спасибо за помощь!Хоть с места тронулся!

@SuPeR XaKer · 03.06.2011, 12:27

(счетчик цикла меняется от 1 до 30).

Write ('F = ');
ReadLn (F);

у вас футы не вводятся а от 1 до 30.

Pascal

var
 m:byte;
begin
for m:=1 to 30 do
 writeln ('Rezul`tat= ',0.3048*m);
readln;
end.

@lamed · 03.06.2011, 12:30

Pascal

program p2;
// Составить программу перевода футов в метры
// (1 фут равен 0,3048 м)
// (счетчик цикла меняется от 1 до 30).
{$APPTYPE CONSOLE}
 
var
  m: integer;
  f,r:real;
 
begin
  r:=0.3048;
  writeln('  m   f');
  writeln('-------');
  for m:=1 to 30 do
    begin
      f:=r*m;
      writeln (m:3,' ', f:0:3);
    end;
 readln;
end.

@D1JleR · 03.06.2011, 12:34 **[ТС]**

Спасибо, Более Расширенный и Верный ответ! Мне так кажется=)

@lamed · 03.06.2011, 12:39

Вообще-то программа классическая, "обыграна" у Ричи и Кернигана во всех ракурсах. Советую посмотреть. Хотя там Си, но сами алгоритмы понятные.

@san-smith · 03.06.2011, 18:49

Если нужно просто перевести футы в метры, то можно (нужно) обойтись без цикла - просто перемножив значения. Например, так:
uses crt;
var fut,m:real;
procedure converter(fut:real;var m:real);
begin
write('vvedite futy ');
readln(fut);
m:=fut*0,3048;
writeln(fut:4:4,' futov= ',m:4:4,' metrov');
end;

begin
clrscr;
converter(fut,m);
readln;
end.

@D1JleR 1 / 1 / 0 Регистрация: 03.06.2011 Сообщений: 24
		1
	Составить программу перевода футов в метры (1 фут равен 0,3048 м) (счетчик цикла меняется от 1 до 30). 03.06.2011, 12:04. Показов 14759. Ответов 7 Метки нет (Все метки) Что я застрял на этих циклах, не знаю в чем причина, но выдает ошибку Вот что я написал,- Помогите пожалуйста довести дело до ума! program Project2; {$APPTYPE CONSOLE} var f,m,r:real; begin write('F= '); Readln (F); r:=0.3048; for m:=1 to 30 do r:=r*f; writeln ('Rezul`tat= ',r); readln; end. 0

@D1JleR 1 / 1 / 0 Регистрация: 03.06.2011 Сообщений: 24
	03.06.2011, 12:25 [ТС]	3
	Спасибо за помощь!Хоть с места тронулся! 0

@D1JleR 1 / 1 / 0 Регистрация: 03.06.2011 Сообщений: 24
	03.06.2011, 12:34 [ТС]	6
	Спасибо, Более Расширенный и Верный ответ! Мне так кажется=) 0

@lamed 298 / 298 / 150 Регистрация: 07.05.2011 Сообщений: 592
	03.06.2011, 12:39	7
	Вообще-то программа классическая, "обыграна" у Ричи и Кернигана во всех ракурсах. Советую посмотреть. Хотя там Си, но сами алгоритмы понятные. 1

@san-smith 13 / 13 / 4 Регистрация: 02.06.2011 Сообщений: 24
	03.06.2011, 18:49	8
	Если нужно просто перевести футы в метры, то можно (нужно) обойтись без цикла - просто перемножив значения. Например, так: uses crt; var fut,m:real; procedure converter(fut:real;var m:real); begin write('vvedite futy '); readln(fut); m:=fut*0,3048; writeln(fut:4:4,' futov= ',m:4:4,' metrov'); end; begin clrscr; converter(fut,m); readln; end. 1