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..
18-10-2012 00:23
Quote:Original Posted By elfapega
tamabahin ky gini :

Code:

var
n : Integer;
Grade : String;

begin
write('Nilai :'); readln(n);

if (n>=0) and (n<=25) then
\tGrade := 'E'
else if (n>=26) and (n<=55) then
\tGrade :='D'
else
\tGrade :='C';

writeln('Garde :', Grade);
readln;
end.


Berhasil gannn...
Terima kasiih banyak. Ane boleh ya belajar masalah ginian lagi sama agan..
Terima kasih gan..
emoticon-Salaman
0 0
0
icon-hot-thread
Hot Threads
obrolan-hangat-logo
Obrolan Hangat
Programmer Forum
Copyright © 2020, Kaskus Networks, PT Darta Media Indonesia