Program rating your name, surname and age.
Delphi & Pascal (èeská wiki)
Category: KMP (Club of young programmers)
Author: Peter Burian
Program: Pomzik.pas
File exe: Pomzik.exe
Author: Peter Burian
Program: Pomzik.pas
File exe: Pomzik.exe
This program rating your name, surname, age and number 1, number2. After finished rating program print your rate on printer.
{ POMZIK.PAS Copyright (c) Peter Burian } { Tento program vam vie ohodnotit meno, priezvisko, vek, } { najoblubenejçie cislo 1 a 2. A ked sa vase hodnotenie skoncilo } { tak sa automaticky zacne tlacit na tlacarni. } { } { Datum:07.08.2005 http://www.trsek.com } program pomzik; uses dos,crt,printer; var a,b:string; a1,a2,c:integer; begin clrscr; write('Meno:'); read(a); clrscr; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln(' Ahoj ',a,''); writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; delay(2000); clrscr; writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» Tento program sluzi na to aby'); delay(100); writeln ('º Uvitanie º ohodnotil vase meno, priezvisko,'); delay(100); writeln ('ºÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺ vek,najoblubenejsie cislo1 a 2.'); delay(100); writeln ('º Vitajte v programe º Ak stlacite "A" tak sa zacne'); delay(100); writeln ('º POZMIK º ohodnotenie vasho mena...'); delay(100); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ Program sa zacne pytat na vase meno...'); delay(100); writeln; delay(100); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'); delay(100); writeln ('º Informacie º'); delay(100); writeln ('ºÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺ'); delay(100); writeln ('º Autor programu º'); writeln ('º (prezivka): º'); delay(100); writeln ('º Dr.Eggman º'); delay(100); writeln ('º º'); delay(100); writeln ('º Vytvorene v roku: º'); delay(100); writeln ('º 2005 º'); delay(100); writeln ('º º'); delay(100); writeln ('ºAk mate neake napady akoº'); delay(100); writeln ('ºvylepsit tento program º'); delay(100); writeln ('º poslite E-mail na: º ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'); delay(100); writeln ('º peter.burian@post.sk º º START "A" -> º'); delay(100); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ'); readln; readln; writeln ('***********************************************************'); writeln ('Meno: Uz bolo zadane ako ',a,''); sound(1000); delay(200); nosound; write ('Priezvisko:'); readln(b); sound(1000); delay(200); nosound; write ('Vek: '); readln(c); sound(1000); delay(200); nosound; write ('Vase najoblubenejsie cislo1(max.10000): '); readln(a1); sound(1000); delay(200); nosound; write ('Vase najoblubenejsie cislo2(max.10000): '); readln(a2); sound(1000); delay(200); nosound; sound(100); delay(200); nosound; writeln; writeln; writeln; writeln; writeln; writeln; write(Lst,'Nazor na:'); writeln(Lst,'',a,''); write('Nazor na:'); textcolor(lightblue); writeln('',a,''); textcolor(white); writeln(Lst,'Akeeeeeeeeee pekne meno ze ',a,' jeeeeeeej :-)'); writeln(Lst,'----------------------------------------------------------------'); writeln('Akeeeeeeeeee pekne meno ze ',a,' jeeeeeeej :-)'); sound(100); delay(200); nosound; writeln; write(Lst,'Nazor na:'); writeln(Lst,'',b,''); write('Nazor na:'); textcolor(lightblue); writeln('',b,''); textcolor(white); writeln(Lst,'Akeeeeeeeee smiesne priezvisko ze ',b,' heeeeeeee :-D'); writeln(Lst,'heeeeeeeeeeeeeeheeeeeeeeeeeeeheeeeeeeeeeeheheheheheee'); writeln(Lst,'----------------------------------------------------------------'); writeln('Akeeeeeeeee smiesne priezvisko ze ',b,' heeeeeeee :-D'); writeln('heeeeeeeeeeeeeeheeeeeeeeeeeeeheeeeeeeeeeeheheheheheee'); sound(100); delay(200); nosound; writeln; write(Lst,'Nazor na:'); writeln(Lst,'',c,''); write('Nazor na:'); textcolor(lightblue); writeln('',c,''); textcolor(white); writeln('Akyyyyyyyy pekny vek ze ',c,' rokov :-)'); writeln(Lst,'Akyyyyyyyyyy pekny vek ze ',c,' rokov :-)'); writeln(Lst,'----------------------------------------------------------------'); sound(100); delay(200); nosound; writeln; write(Lst,'Nazor na:'); writeln(Lst,'',a1,''); write('Nazor na:'); textcolor(lightblue); writeln('',a1,''); textcolor(white); writeln('TOTO je tvoje najoblubenejsie cislo ze ',a1,'. Ja mam ',a1+a2); writeln(Lst,'TOTO je tvoje najoblubenejsie cislo ze ',a1,'. Ja mam ',a1+a2); writeln(Lst,'----------------------------------------------------------------'); sound(100); delay(200); nosound; writeln; write(Lst,'Nazor na:'); writeln(Lst,'',a2,''); write('Nazor na:'); textcolor(lightblue); writeln('',a2,''); textcolor(white); writeln('Pekne je. Ti mas ',a2,' ale ja mam ine: ',a1-c); writeln(Lst,'Pekne je. Ti mas ',a2,' ale ja mam ine: ',a1-c); writeln(Lst,'----------------------------------------------------------------'); sound(100); delay(200); nosound; writeln; writeln; writeln; writeln('Prebieha tlac \ Probiha tisk'); writeln; writeln; writeln; writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' \ | | | | / '); writeln(Lst,' __________ '); writeln(Lst,' / _ _ \ '); writeln(Lst,' / / \ / \ \ '); writeln(Lst,' / \_/ \_/ \ '); writeln(Lst,' \ / '); writeln(Lst,' \ -------- / '); writeln(Lst,' \__________/ '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,' '); writeln(Lst,'_____________________________Peter Burian____'); readln; end.