Versiunea in limba romana Версия на русском языке
...:::   Главная страница · О Паскале · Download · О сайте:::...
 
На сайте:  
Реклама  

 

HotLog online dating service
HotLog
HotLog доставка цветов

 

Порядковые номера

 

Напишите прграмму,которая выводит на экран порядковые номера значений следующих типов данных continente=(Europa,Asia, Africa,AmericaDeNord,AmericaDeSud,Australia,Antarctida); sex=(Barbat,Femeie); PuncteCardinale=(Nord,Sud,Est,Vest); Etaje=(Unu,Doi,Trei,Patru,Cinci);


program Multimi1;
type continente=(Europa,Asia,Africa,AmericaDeNord,AmericaDeSud,Australia,Antarctida);
sex=(Barbat,Femeie);
PuncteCardinale=(Nord,Sud,Est,Vest);
Etaje=(Unu,Doi,Trei,Patru,Cinci);
var i:byte;
BEGIN
i:=ord(Europa);writeln('Europa':15,i:2);
i:=ord(Asia);writeln('Asia':15,i:2);
i:=ord(Africa);writeln('Africa':15,i:2);
i:=ord(AmericaDeNord);writeln('AmericaDeNord':15,i:2);
i:=ord(AmericaDeSud);writeln('AmericaDeSud':15,i:2);
i:=ord(Australia);writeln('Australia':15,i:2);
i:=ord(Antarctida);writeln('Antarctida':15,i:2);
readln;
i:=ord(Barbat);writeln('Barbat':15,i:2);
i:=ord(Femeie);writeln('Femeie':15,i:2);
readln;
i:=ord(Nord);writeln('Nord':15,i:2);
i:=ord(Sud);writeln('Sud':15,i:2);
i:=ord(Est);writeln('Est':15,i:2);
i:=ord(Vest);writeln('Vest':15,i:2);
readln;
i:=ord(Unu);writeln('Unu':15,i:2);
i:=ord(Doi);writeln('Doi':15,i:2);
i:=ord(Trei);writeln('Trei':15,i:2);
i:=ord(Patru);writeln('Patru':15,i:2);
i:=ord(Cinci);writeln('Cinci':15,i:2);
readln;

END.

<< Назад

 
Добавленно: 15.08.2004Андрей

Copyright © Rocko, 2004. Last Updated : 1 september 2004

Hosted by uCoz