SUBS or GOSUB; for library projects, which do you guys prefer?

Code: (Select All)

//Goto Benutzung - 28. Aug.2022

//Prüfen der Eingabe ob Zahl



#include <stdio.h>

#include <stdlib.h>

#include <ctype.h>

#include <math.h>



int main(void)

{

    int zahl, check;    

    double pi = 3.141592653589;

    double kreisumfang, quadratflaeche;

    double zylindervolumen;

    

    wiederholen:

    printf("\nBitte waehlen Sie:\n");

    printf("10 = Kreisumfang\n");

    printf("15 = Flaeche eine Quadrats\n");

    printf("20 = Volumen eines Zylinders\n");

    printf("\n0 fuer Ende: ");

    check = scanf("%d", &zahl);

    

    //Prüft ob Eingabe eine Zahl war.

    //Liefert scanf eine 0 zurück, war es keine Zahl

    if(check == 0)

        goto keine_zahl;

    

    if(zahl == 0)

    {

        goto ende;

    }    

    else if(zahl == 10)

        goto kreis_umfang;

    else if(zahl == 15)

        goto flaeche_quadrat;

    else if(zahl == 20)

        goto zylinder_volumen;

    else goto wiederholen;

    

    kreis_umfang:

    kreisumfang = (double)10 * pi;

    printf("\nEin Kreis mit dem Durchmesser von 10cm hat einen Umfang von %4.2f cm", kreisumfang);

    exit(0);

    

    flaeche_quadrat:

    quadratflaeche = pow(15.0, 2.0);

    printf("\nBei einem Quadrat von 15cm Kantenlaenge betraegt der Flaecheninhalt: %4.2f qcm\n", quadratflaeche);

    exit(0);

    

    zylinder_volumen:

    zylindervolumen = (((20.0 * 20.0) * pi) * 30.0);

    printf("\nZylindervolumen bei einem Radius von 20cm und einer Hoehe von 30cm betraegt: %4.2f ccm\n", zylindervolumen);

    exit(0);

    

    keine_zahl:

    printf("\n\aEingabe war keine Zahl!\n");

    exit(0);

    

    ende:

    printf("\a\nUnd Tschuessi!\n");

    return(0);

}

Code: (Select All)

Screen 12



Dim row As Integer, cnt As Integer, cstart As Single, cend As Single

Dim xrot As Integer, yrot As Integer, scale As Integer



'FULLSCREEN - full screen optional

cstart = 0: cend = 8 * Atn(1)

xrot = 6: yrot = 60: scale = 4

row = 1

Circle (320, 240), 15, 9: Paint Step(0, 0), 9



Do

  For i = cstart To cend Step .04

    x = 300 + (scale * 40 - (row * xrot)) * Cos(i)

    y = 200 + (scale * 40 - (row * yrot)) * Sin(i)

    cnt = cnt + 1

    Color 7: _PrintString (x, y), "I love You Basic!", 0 'display

    If cnt = Len(text$) * 8 Then cnt = 0: Exit Do

    _Display

    Color 0: _PrintString (x, y), "I love You Basic!", 0 'erase

    _Delay 0.02

  Next

Loop Until InKey$ = Chr$(27) 'escape key exit

Color 15



End