Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang rumus abc.

program Rumus_abc;
uses wincrt;
var
a,b,c,d,X1,x2:real;
begin
writeln ('Masukkan a=');readln(a);
writeln ('Masukkan b=');readln(b);
writeln ('Masukkan c=');readln(c);
if a=0 then ('Masukkan a=');readln(a);
else d:=b*b-(4*a*c);
end;
if d<0 then ('Masukkan d='
end.

Posted in: pascal,rumus abc