www.TrSek.com
 English
English 		Slovensky
Slovensky 		Česky
Česky 		Šarišsky
Šarišsky
 
Programs
Source in Pascal (54)
Homework in Pascal (216)
Generator of homework
Source in Pascal (KMP) (165)
Programs in C, C++ (8)
Random program
Pascal - category
Games (20)
Homework (216)
Beginers (28)
Graphics (36)
Mathematics (115)
Geometry (23)
String (45)
Projects (26)
System (36)
Documents
Manual for Pascal (lite)
Articles about Programing (slovak) (18)
Link on interenet
FAQ – flash tips (4)
Informations
Download
Add your program in Pascal
Parameters older HDD
Contacts
Your Advertisement
Send e-mail
About – Cirriculum vitae
Visitor's book
ICQ 207919468 ICQ
Status

Category: Homework in Pascal

Author: Juraj Pupák
Program: Meno_pri.pas
File exe: Meno_pri.exe
Program read first and surname name. Then write surname name.
Views: 1767x

{ MENO_PRI.PAS                                                      }
{ Vyziada si meno a priezvisko. Z nich urci priezvisko.             }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Meno_Priezvisko;
uses crt;
  var
    udaje : string;
    i,i_1 : integer;
    dlzka_retazca : integer;
    priezvisko : string;
    
begin
  clrscr;
  writeln('Zadaj meno a priezvisko');
  readln(udaje);
  clrscr;
  dlzka_retazca := length(udaje);
  For i := 1 To dlzka_retazca Do
    begin
      If udaje[i] = ' ' THEN
        begin
          For i_1 := i To dlzka_retazca Do
            begin
              priezvisko := priezvisko + udaje[i_1 + 1];
            end;
          writeln(priezvisko);
        end;
    end;
  readln;
end.
 
 
[Run] [Save] [Print] [Send e-mail] 
Visitors: 1 000 600
Nameday: Oldrich
Today: 03.12.2008, 07:47
Counter naj.sk:

Valid HTML 4.01 Transitional
TOPlist _ TOPlist sk
Joke in Slovak:
Zeptali jsme se za Vás:
PROČ PŘEBĚHLO KUŘE PŘES CESTU?

Louis Farrakhan: Silnice představuje černého muže. Kuře přes něj přeběhlo, aby ho sociologicky srazilo dolů.

Fox Mulder: Viděli jste na vlastní oči, jak kuře přeběhlo cestu. Kolik kuřat ještě musí přeběhnout, abyste tomu uvěřili?

Richard M Nixon: To kuře cestu nepřeběhlo. Opakuji. To kuře nepřeběhlo cestu.

Machiavelli: Jde o to, že kuře přeběhlo přes cestu. Koho zajímá proč? Výsledek ospravedlní důvod, ať již byl jakýkoliv.

Freud: Skutečnost, že se zajímáte o důvod proč kuře přeběhlo přes cestu ukazuje vaši sexuální nejistotu.

Oliver Stone: Otázka nezní: "Proč přeběhlo kuře přes cestu?", ale "Čí přeběh přes cestu jsme propásli pozorujíce kuře?"

Darwin: Kuřata byla v průběhu miliónů let podrobena přirozenému výběru, takže kuřata jsou geneticky přizpůsobena k přebíhání přes cestu.

Einstein: Zda kuře přeběhlo cestu, nebo zda se cesta přesunula za kuře záleží na tom, zda stojíte v čárkované nebo nečárkované soustavě.

Buddha: Ptáte-li se takto, popíráte svou vlastní kuřecí povahu.

Ralph Waldo Emersen: Kuře cestu nepřeběhlo, ono ji transcendovalo.

Ernest Hemingway: Umřít. V dešti.

Plukovnik Sanders: Já jedno vynechal?

Hillary Clinton: Byl to akt proti Arkanssasu.

Miroslav Sládek: Můžou za to Němci.

Miloš Zeman: Minulá vláda všechno prohospodařila na obou stranách silnice.

Josef Švejk: To kuře mi připomíná jednoho drogistu, co měl krám v Nymburce na náměstí.

Hostinský Palivec: Aby *****lo silnici.

Tisková mluvčí spolešnosti RadioMobil: My máme signálem pokryté obě strany silnice a tím znovu dokazujeme, že jsem na technické špičce mobilních komunikací.

Tisková mluvčí SPT Telecom: Je to narušení našeho monopolu.

Neil Armstrong: Malý krok pro kuře, velký krok pro lidstvo.
http://www.trsek.com © Copyright 2008 TrSek, product webmaster (best resolution 1024x768)