Составить программу перевода футов в метры (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.

Новые блоги и статьи
Интеграция Arduino и ChatGPT: Практическое руководство InfoMaster 16.01.2025 В современную эпоху технологических инноваций интеграция искусственного интеллекта с микроконтроллерами открывает принципиально новые возможности для создания умных устройств и автоматизированных. . .	Как создать робота, управляемого ChatGPT InfoMaster 16.01.2025 Концепция проекта В современную эпоху искусственный интеллект и робототехника становятся все более доступными для энтузиастов и разработчиков. Создание роботизированной руки, управляемой ChatGPT,. . .	Как создать ChatGPT бота в Telegram на Python InfoMaster 16.01.2025 В современном мире технологии искусственного интеллекта становятся все более доступными для разработчиков, открывая новые возможности для создания умных и интерактивных приложений. Одним из самых. . .	Машинное обучение с помощью Python InfoMaster 16.01.2025 Машинное обучение стало неотъемлемой частью современных технологий, позволяя компьютерам учиться на основе данных и принимать решения без явного программирования. В сочетании с языком. . .	Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .
Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .

@D1JleR 1 / 1 / 0 Регистрация: 03.06.2011 Сообщений: 24
		1
	Составить программу перевода футов в метры (1 фут равен 0,3048 м) (счетчик цикла меняется от 1 до 30). 03.06.2011, 12:04. Показов 14772. Ответов 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

Опции темы