Tech
Batal
KATEGORI
link has been copied
15
Lapor Hansip
17-10-2012 05:48

[ASK] Program ane kok begini..

Gan ane kan buat program pencetak nilai. Contohnya pas dimasukin angka 25 = E, 40=D, dst. Ini bahasa delphi yang ane pake, dapet dari forum ini juga
Quote:
var

N : Integer;

Grade : String;


begin

if n>=0 and n<=25 then

begin

Grade := "E";

end

else if n>=26 and n<=55 then

begin

Grade :="D";

end

else

begin

Grade :="C";

end


Terus hasilnya jadi begini gan

[ASK] Program ane kok begini..

Ane pake console application, jadi gak pake interface. mohon bantuannya gan kenapa kok bisa error. Terus cara ngtasinnya gimana???
0
Masuk atau Daftar untuk memberikan balasan
[ASK] Program ane kok begini..
19-10-2012 01:28
Setelah ane utak-atik jadi begini gan.
Quote:Var
n : Integer;
Grade : String;
Begin

write('Masukkan Nilai Kamu:'emoticon-Wink; readln(n);
if (n>=0) and (n<=25) then
\tGrade := 'E'
else if (n>=26) and (n<=55) then
\tGrade :='D'
else if (n>=56) and (n<=70) then
\tGrade :='C'
else if (n>=71) and (n<=85) then
Grade :='B'
else if n>85 then
Grade :='A';
writeln('Grade :', Grade);
readln;
end.
end.


Yang ane mau tanyain, apa ada cara lain tanpa menggunakan "else", pseucode nya kayak gini.

if >85 then grade:='A'
if >70 then grade :='B'
if >55 then grade :='C'
dst..

Kan jadinya lebih simple..
0 0
0
icon-hot-thread
Hot Threads
obrolan-hangat-logo
Obrolan Hangat
Copyright © 2020, Kaskus Networks, PT Darta Media Indonesia