Prev Next Up Title Contents Index

Perusrakenne

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:

Oletamme että lukija tuntee suhteellisen hyvin vähintään C- kielen, mieluummin perusteet C++:stakin.

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.



Prev Next Up Title Contents Index