Screensaver - Turbo Pascal

Hai kali ini ane akan bahas tentang membuatan Screensaver menggunakan turbo pascal 07 langsung aja ke TKP

SSnya

Code : 

Program Screensaver;
uses crt;
Var a : integer;
Begin
clrscr;
randomize;
    while not keypressed do
     begin
        gotoxy(random((80)+1),random((25)+1));
        textcolor(random(5)+1);
        write(chr(random(6)+1));
        textbackground(random((5)+1));
     end;
textbackground(black);
clrscr;
textcolor(white);
       writeln('     Ein Bildschirmschoner von Andreas Hadel');
       writeln('     Vielen Dank fr die Benutzung dieser Software !');
       writeln('                        Freeware by Andreas Hadel 1998');
       writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
End.

Jika error dari kode di atas Comment

sumber : Andreas Hadel 1998

Algoritma Perulangan

Hai siang ini ane akan membahas tentang algoritma Perulangan tidak usah banyak basi langsung aja ke TKP

Code :


uses crt;
var usia:integer;
begin;
clrscr;
write('usia = ');readln(usia);
if usia>17 then
   writeln('silakan lihat')
   else
   writeln('tidak boleh');

   readln;
   end.

jika error comment di bawah

Biodata

Hai sobat SNC kali ini ane mau membahasa tentang perumusan/pemprograman turbo pascal 7 ,yang saya bahas sekarang  adalah tentang bagai mana cara membuat biodata menggunakan turbo pascal langsung aja kita menuju TKP

SS 

uses crt;
var nama:string;
    alamat:string;
    usia:integer;
    tinggi:real;
    berat:real;

    begin
    clrscr;
    nama:='M Effan Dwi S';
    alamat:=' Jl. Tegal Boro Gg III Tuban';
    usia:=16;
    tinggi:=160;
    berat:=45.5;
    writeln('namanya ',nama);
    writeln('rumahnya di ',alamat);
    writeln('sekarang usia ',usia);
    writeln('dengan tinggi badan ',tinggi:2:0);
    writeln('dan berat badan ',berat:2:2);

    readln;
    end.

jika ada kesalahan comment di bawah