ForumPortaliGalleryPytėsoriKėrkoLista AnėtarėveGrupet e AnėtarėveRegjistrohuidentifikimi
...:::Meny Kryesore:::...
 Home
 Portali
 Forum
 Lista e Antarve
 Galeria
 Lajmet Flash
 Profili
 FAQ
 Testi I Dashuris
favoritos.gif Media & Muzika
 Telivizionet Live
 Video Klipe
 Ruzulltatet Sportive
 Mp3 Falass
 Mp3 RAP
 Kerkesa Muzikore
 Melodi Per Celular
icon_community.gif Argėtim-Zbavitje
 Video Humoristike
 Luani Lojra
 Dezing
 Poezi
 Gediche
 Argėtime
 Albumi Fotografik
 Tema tė Ndryshme
som_downloads.gif Shkarkime & Links
King-Rap Tolbar
Programe
Shkarko Scripte
Chat Programs
 Kėrko nė Forum
 Liderėt e forumit
 Ndihmė
 Kėrko
Moti Momental

Permbajta e ksaj faqe kerkon flash player per instalim kliko mbi ket tekst.


Futu nė chat

Top 5 softuerėt antivirus pėr 2008
HTML clipboard
Top 5 softuerėt antivirus pėr 2008

1. Bit Defender

2. Kaspersky

3. Eset NOD32

4. Trend Micro Antivirus

    plus AntiSpyware 

5. F-Secure Anti-Virus 

SMS Falas nga KING-RaP
Partnerėt
>>> AlBaZeMeR <<<

XoFaCe

->>Ks-MaX <<<---

->> KoSoVa.Li <<<---

 ->> Muzik-Anglisht <<<---

V.I.P Galeri

Top posters
kanuni
 
Xhebraili
 
vissari
 
El-Fuego
 
drini-89
 
RiRi
 
dj-baba
 
dosti
 
king
 
miri
 
Keywords
IP Addressa Juaj&Reklama
IP


Share | 
 

 ---Pascal---

Shiko temėn e mėparshme Shiko temėn pasuese Shko poshtė 
AutoriMesazh
El-Fuego



Numri i postimeve : 159
Join date : 12/06/2008
Age : 104
Location : Peja Morder City

MesazhTitulli: ---Pascal---   Wed Jun 18, 2008 3:59 am

Nje program i vogel ne gjuhen e programimit "PASCAL"

{---------------------------------------------------------}
{Conversions degres-radians entre deux limites specifiees}

program DegresRadians;
{$APPTYPE CONSOLE}
uses
sysutils;

VAR
degres,min,max: INTEGER;
radians: REAL;

begin
Writeln('Conversion degres-radians');
Writeln('=========================');
Writeln;
Write ('Minimum: ');
Readln(min);
Write ('Maximum: ');
Readln(max);
Writeln;

IF min > max then
Writeln('Erreur ! valeur minimum est plus grand que valeur maximum !!')
else

begin
Writeln(' Degres Radians');
Writeln(' ------ -------');
for degres:=min to max do
begin
radians:=degres*pi/180;
Writeln(degres:10,radians:15:5);
end;
end;
readln;
end.
Mbrapsht nė krye Shko poshtė
Shiko profilin e anėtarit
 
---Pascal---
Shiko temėn e mėparshme Shiko temėn pasuese Mbrapsht nė krye 
Faqja 1 e 1

Drejtat e ktij Forumit:Ju nuk mund ti pėrgjigjeni temave tė kėtij forumi
 :: .:: Leksione dhe Guida ::. :: Gjuhe Programuese-
Kėrce tek: