Keluar

Keluar

Keluar

Keluar

Please Login

Lupa sandi ?

Login

Home | Pencarian
Home » Programming Lounge » Belajar Programming yuk
 

 Post [7]
ID User : 15099
Angelique Michelle Martono
Terdaftar : 16 March 2020
Posting : 22
IP : 125.164.141.244
Email
Mau Main main dengan string ah...
ID User : 15099
Angelique Michelle Martono
Terdaftar : 16 March 2020
Posting : 22
IP : 125.164.141.244
Email
2. Buatlah Program penjumlahan 3 buah data dimana ada jumlah data awal yang diberikan
Input :
Input diawali oleh satu baris dengan satu angka, T yang menandakan jumlah soal yang akan dicari ( T ≤ 100 ). Input Kemudian diikuti oleh tepat T baris dimana tiap baris berisi tiga angkat : a, b dan c .
Output :
Output harus terdiri dari tepat T baris, dimana tiap baris berisi satu angka hasil dari penghitungan a + b + c tiap tiap baris.


Contoh input Output untuk contoh input
3
7 3 1
8 7 4
3 2 1
Jumlah : 11
Jumlah : 19
Jumlah : 6
ID User : 15099
Angelique Michelle Martono
Terdaftar : 16 March 2020
Posting : 22
IP : 125.164.141.244
Email
for i:=batas downto 1 do
begin
ambil:=copy(kal,i,1);
writeln(ambil);
end;
writeln('====================');

apa hasil outputnya ayoooo
ID User : 15008
Lilian Krisnanda
Terdaftar : 16 March 2020
Posting : 1
IP : 125.164.15.224
Email
Jawaban yang pertama mungkin ini:
var a,b,c,d,e,i:integer;
begin
readln(a);
for i:= 1 to a do
begin
read(b,c,d);
e:=b+c+d;
write(e);
end;
end.
Very Happy
ID User : 15589
Fidelia Elycia Herlimus
Terdaftar : 16 March 2020
Posting : 3
IP : 125.164.21.189
Email
pak Very Happy
jawaban yg pertama itu

var
n,i,a,b,c,d:integer;

begin
readln(n);
for i:=1 to n do
begin
readln(a,b,c);
d:=a+b+c;
writeln(d);
end;
readln;
end. Very Happy Very Happy Very Happy
ID User : 15589
Fidelia Elycia Herlimus
Terdaftar : 16 March 2020
Posting : 3
IP : 125.164.21.189
Email
yang soal kedua bukannya error ya?? Confused
ato kita edit n betulin lagi?? Hammer
ID User : 15589
Fidelia Elycia Herlimus
Terdaftar : 16 March 2020
Posting : 3
IP : 125.164.21.189
Email
pak Very Happy
setelah saya edit jadi seperti ini...

var
i,batas:integer;
ambil,kal:string;

begin
readln(batas);
readln(kal);
for i:=batas downto 1 do
begin
ambil:=copy(kal,i,1);
writeln(ambil);
end;
writeln('====================');
readln;
end.

trus INPUTnya
5
batas

OUTPUT


5
batas
s
a
t
a
b
====================
 Post [7]