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ääohjelmaprogram 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. |