• Twitter
  • Facebook
  • Google+
  • Instagram
  • Youtube

Sunday 19 May 2013

Transpos Matrik Sederhana | Free Pascal

Free Pascal Tutorial
Free Pascal Tutorial

Yah,, kembali lagi, sekarang pelatihan pascalnya adalah membuat Tranpos Matrik Sederhana.
Yak, saya rasa, dasar dasarnya sudah diberikan pada tutorial sebelumnya. Jika tidak mengerti harap baca tutorial sebelumnya di..

Hehe.. yak,, langsung saja ke TKP (kaya opera van java maksudnya)

Input
bilangan antara 1 - 100 yang disusun secara seperti ini
a b c
d e f
g h i
Output
Tranpos matrik dari bilangan yang dipilih. Maksdunya seperti ini :
a d g
b e h
c f i
Contoh Input
1 2 3
4 5 6
7 8 9
Contoh Output
1 4 7
2 5 8
3 6 9

Selamat Mencoba

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |
var a, b, c, d, e, f, g, h, i : integer;
 
begin
   readln (a,b,c);
   readln (d,e,f);
   readln (g,h,i);
 
   writeln (a,' ',d,' ',g);
   writeln (b,' ',e,' ',h);
   writeln (c,' ',f,' ',i);
end.

0 komentar:

Post a Comment

Hey, It's my pleasure to know what was in your mind after reading the article above. So, you can comment or give critics to my writing on this comment box below

Contact

Get in touch with me


Adress/Street

12 Street West Victoria 1234 Australia

Phone number

+(12) 3456 789

Website

www.johnsmith.com