Identifieringsavdelning.

Program-id. Centigrade-to-Fahrenheit.

Data Division.

Arbetslagringsavsnitt.

01 CENTIGRADE-värde PIC 99V99.

01 Fahrenheit-värde PIC 99V99.

Proceduravdelning.

Visa "Ange temperaturen i Centigrade (C):".

Acceptera Centigrade-värdet.

Beräkna Fahrenheit-värde =(Centigrade-värde * 9/5) + 32.

Visa "Temperaturen i Fahrenheit (F) är:", Fahrenheit-värdet.

Stoppkörning.

`` `

Förklaring:

1. Identifieringsavdelning: Innehåller program-ID, som är "Centigrade-to-Fahrenheit".

2. Data Division:

- Arbetslagringsavsnitt:

- Centigrade-värde: En variabel för att lagra temperaturen i Centigrade.

- fahrenheit-värde: En variabel för att lagra temperaturen i Fahrenheit.

3. Procedure Division:

- Display "Ange temperaturen i Centigrade (c):": Uppmanar användaren att ange temperaturen i Centigrade.

- Acceptera Centigrade-värdet: Läser användarinmatningen och lagrar den i variabeln "Centigrade-värdet".

- COMPUTE FAHRENHEIT-VALUE =(CENTIGRADE-VALUE * 9/5) + 32: Beräknar Fahrenheit -temperaturen med omvandlingsformeln.

- Display "Temperaturen i Fahrenheit (F) är:", Fahrenheit-värde: Visar den konverterade Fahrenheit -temperaturen.

- Stoppkörning: Avslutar programmet.

Hur man kör detta program:

1. kompilera: Använd en COBOL -kompilator för att sammanställa programmet.

2. Utför: Kör det sammanställda programmet.

3. Input: Programmet kommer att uppmana dig att gå in i temperaturen i Centigrade.

4. Utgång: Programmet visar temperaturen i Fahrenheit.

Exempel:

Om du anger 25,00 Som temperatur i Centigrade kommer programmet att matas ut:

`` `

Temperaturen i Fahrenheit (F) är:77,00

`` `