Identificatieafdeling.

Programma-ID. Celsius-tot-Fahrenheit.

Gegevensafdeling.

Werkopslaggedeelte.

01 Celsius-waarde PIC 99V99.

01 Fahrenheit-waarde PIC 99V99.

Procedure Divisie.

Weergave "Voer de temperatuur in Celsius in (c) in:".

Accepteer Celsius-waarde.

Compute fahrenheit-waarde =(Celsius-waarde * 9/5) + 32.

Display "De temperatuur in Fahrenheit (F) is:", Fahrenheit-waarde.

Stop met run.

`` `

Verklaring:

1. Divisie van identificatie: Bevat de programma-ID, die "Celsius-to-Fahrenheit" is.

2. Divisie voor gegevens:

- Sectie Werkopslag:

- Celsius-waarde: Een variabele om de temperatuur in Celsius op te slaan.

- Fahrenheit-waarde: Een variabele om de temperatuur in Fahrenheit op te slaan.

3. Divisie van procedure:

- Weergeven "Voer de temperatuur in Celsius in (C) in:": Vraagt ​​de gebruiker om de temperatuur in Celsius in te voeren.

- Accepteer Celsade-waarde: Leest de gebruikersinvoer en slaat deze op in de variabele "Celsius-waarde".

- Fahrenheit-value =(CEOLTRADE-VALUE * 9/5) COMPUTEER Berekent de Fahrenheit -temperatuur met behulp van de conversieformule.

- Display "De temperatuur in Fahrenheit (f) is:", fahrenheit-waarde: Toont de geconverteerde Fahrenheit -temperatuur.

- Stop Run: Eindigt de uitvoering van het programma.

Dit programma uitvoeren:

1. Compileren: Gebruik een COBOL -compiler om het programma samen te stellen.

2. Uitvoeren: Voer het gecompileerde programma uit.

3. Input: Het programma vraagt ​​u om de temperatuur in Celsius in te voeren.

4. Uitgang: Het programma zal de temperatuur weergeven in Fahrenheit.

Voorbeeld:

Als u 25.00 invoert Als de temperatuur in Celsius zal het programma worden uitgevoerd:

`` `

De temperatuur in Fahrenheit (F) is:77,00

`` `