Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #54.9K
Re:
Hi, I'm looking for with some pascal code. I have to make a program which allows you to input a name and an amount four times. Then it is supposed to output the name, three percentages of the amount and the maximum of one of the percentage out of the … |
|
Uses crt; Const M=5; Var A : array [1..M] of Integer; i,x : Integer; dapat : boolean; Function Cek(angka:Integer;batas:Integer):string; var Awal:integer; Begin For awal:=1 to batas do Begin If A[awal]=angka then Begin Cek:='Angka Sudah Ada !'; dec(i); End Else Cek:='Angka benar !'; End; End; Begin Clrscr; Writeln('Pencarian dengan fungsi Logika'); … |