Jatkossa käytämme Delphin Object Pascal - kielestä pelkästään nimeä Pascal. Tästä huolimatta tämän monisteen tekstiä ei tule sotkea standardi-Pascaliin, johon Delphin Object Pascalissa on lisätty huomattavasti omia lisäpiirteitä, mm:
Aloitetaan erojen selvittäminen lyhyellä konsoli - esimerkkiohjelmalla, joka lukee kaksi kokonaislukua ja tulostaa niistä suuremman, lukujen keskiarvon ja luvut suuruusjärjestyksessä. Aluksi sama pääohjelma C++:lla ja Delphi 1.0:lla. Delphin versio näkyy lähinnä siinä, miten Windows- ohjelmasta käytetään standardi-IO:ta (WinCRT).
esim1.cpp - C++ pääohjelma #include <iostream.h>
#include "ali.hpp"
int main(void)
{
int a,b;
cout << "Anna kaksi lukua välilyönnillä"
" erotettuna>";
cin >> a >> b;
cout << "Suurempi luvuista on "
<< bigger(a,b) << endl;
cout << "Lukujen keskiarvo on "
<< average(a,b) << endl;
if ( a > b ) {
swap(a,b);
cout << "Luvut järjestyksessä ovat "
<< a << " " << b << endl;
}
else
cout << "Luvut olivat järjestyksessä"
<< endl;
return 0;
} |
esim1.dpr - Delphi 1.0 pääohjelma program Esim1;
uses WinCRT,Ali;
var a,b:integer;
begin
write('Anna kaksi lukua välilyönnillä ',
'erotettuna>');
readln(a,b);
writeln('Suurempi luvuista on ',
bigger(a,b));
writeln('Lukujen keskiarvo on ',
average(a,b):5:2);
if ( a > b ) then begin
swap(a,b);
writeln('Luvut järjestyksessä ovat ',
a,' ',b);
end
else
writeln('Luvut olivat järjestyksessä');
end. |