ФАРЕНГЕЙТЫ В ГРАДУСЫ, МИЛИ В КИЛОМЕТРЫ!
Модераторы: SNOOPER, Nbf, Romik, BAlex, drcham, алексей - Маленький Мук
ФАРЕНГЕЙТЫ В ГРАДУСЫ, МИЛИ В КИЛОМЕТРЫ!
кто в курсе можно ли каким то образом превести ФАРЕНГЕЙТЫ В ГРАДУСЫ, МИЛИ В КИЛОМЕТРЫ, на монтеро 2001г.
Перевести градусы из фаренгейта в цельсия элементарно:
отнять 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
И т.д. если кому надо могу еще.
отнять 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
И т.д. если кому надо могу еще.

- Monterorider
- Сообщения: 2768
- Зарегистрирован: 10 июн 2003, 16:20
- Двигатель:: 5.7L V8 HEMI
- Мой автомобиль(и):: Dodge Ram 2500 Power Wagon
- Откуда: За океаном
- Откуда: Portland, OR, USA
- Поблагодарили: 23 раза
- Контактная информация:
- Monterorider
- Сообщения: 2768
- Зарегистрирован: 10 июн 2003, 16:20
- Двигатель:: 5.7L V8 HEMI
- Мой автомобиль(и):: Dodge Ram 2500 Power Wagon
- Откуда: За океаном
- Откуда: Portland, OR, USA
- Поблагодарили: 23 раза
- Контактная информация: