“Kasus Pascal” Kode Jawaban

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Kasus Pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.
Adorable Anteater

Jawaban yang mirip dengan “Kasus Pascal”

Pertanyaan yang mirip dengan “Kasus Pascal”

Jelajahi jawaban kode populer menurut bahasa

Jelajahi bahasa kode lainnya