Страница 1 из 1

ФАРЕНГЕЙТЫ В ГРАДУСЫ, МИЛИ В КИЛОМЕТРЫ!

Добавлено: 12 ноя 2004, 03:00
djekson
кто в курсе можно ли каким то образом превести ФАРЕНГЕЙТЫ В ГРАДУСЫ, МИЛИ В КИЛОМЕТРЫ, на монтеро 2001г.

Добавлено: 12 ноя 2004, 08:25
Павел_Спб
мили не знаю, а F переводится нажатием кнопки TEMP 5-6 секунд

Добавлено: 13 ноя 2004, 04:47
Гость
а если нет кнопки темп, то куда жать тогда? :roll:
кстати км в милии я перевел удержанием какой то кнопки:)

Добавлено: 15 ноя 2004, 12:09
DIMA GT
Перевести градусы из фаренгейта в цельсия элементарно:
отнять 32 умножить на 5 и разделить на 9

Можно автоматизировать процесс написав простейшие програмульки:
например на

C++

void main()
{
float fahr;
cout<<"Enter Fahrengeit ";cin>>fahr;
cout<<"Celsius is "<<(fahr-32)*5/9<<"\n";
}

или на С
main()
{
float fahr;
printf("Enter Fahrenheit ");
scanf("%f", &fahr);
printf("Celsius is %f/n", (fahr-32)*5/9);
}

ALGOL
fahrenheit
begin
real fahr;
print ("Enter Fahrenheit ");
read (fahr);
print ("Celsius is ", (fahr-32.0) * 5.0/9.0);
end
finish

BASIC
10 INPUT "Enter Fahrenheit "; FAHR
20 PRINT "Celsius is ", (FAHR-32) * 5 / 9

COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 FAHR PICTURE 999.
77 CENT PICTURE 999.

PROCEDURE DIVISION.
DISPLAY 'Enter Fahrenheit ' UPON CONSOLE.
ACCEPT FAHR FROM CONSOLE.
COMPUTE CENT = (FAHR- 32) * 5 / 9.
DISPLAY 'Celsius is ' CENT UPON CONSOLE.
GOBACK.

FOCAL

1.01 ASK "Enter Fahrenheit ", TFAHR
1.02 TYPE "Celsius is ", (TFAHR-32)*5/9,!

FORTH

: CONV ( n) 32 - 5 9 * / . ." Celsius
: USER_INPUT ." Enter Fahrenheit " CONV ;

Java
var fahr=prompt("Enter Fahrenheit",0)
alert("Celsius is "+((fahr-32)*5/9))


Simula
begin real fahr, cent;
outtext('Input Fahrenheit ');
fahr:=inreal;
cent:=(fahr-32)*5/9;
outtext('Celsius is');outfix(cent,10,4);
outimage;
end

Modula-2

MODULE FahrToCent;
FROM InOut IMPORT ReadReal,WriteReal,
WriteString,WriteLn;
VAR Fahr:REAL;
BEGIN
WriteString("Enter Fahrenheit ");
ReadReal(Fahr);
WriteLn;
WriteString("Celsius is ");
WriteReal((Fahr - 32) * 5 / 9);
END FahrToCent

И т.д. если кому надо могу еще. :lol:

Добавлено: 07 дек 2005, 01:12
Monterorider
Ну почему же нет. Очень даже есть только чуть считать больше
С = (F - 32) * 5/9 :D

Добавлено: 07 дек 2005, 01:14
Monterorider
DIMA GT писал(а): И т.д. если кому надо могу еще. :lol:
Smalltalk давай. :wink: