LINUXSOFT.cz Přeskoč levou lištu

ARCHIV



   

> Diskuze: Poradna družstva - PASCAL

družstva - PASCAL
(link)
4.6.2007 15:28
Nikola Asusova

AHOJ.
Prosím vás, mohla bych někoho poprosit o zdrojový kód tohoto příkladu?? Je to příklad do školy a vůbec si s ním nevím rady. Děkuji. P.S - Stačilo by, jak vytvořím to pořadí...MĚLO BY TO BÝT V TEXTOVÉM REŽIMU.


Napiště program pro výpis bodovací tabulky bodované soutěže družstev. Budete zadávat počet družstev a poté budete dotazování na body každého z nich. Výsledkem bude tabulka uvádějící kromě všech bodů také pořadí a celkový součet bodů.

Re: družstva - PASCAL
(link)
4.6.2007 21:54
dvhx
Věk: ( ~42 let)
./druzstva
Zadaj pocet druztiev: 10
Druzstvo 1 ma bodov: 6
Druzstvo 2 ma bodov: 14
Druzstvo 3 ma bodov: 2
Druzstvo 4 ma bodov: 3
Druzstvo 5 ma bodov: 2
Druzstvo 6 ma bodov: 3
Druzstvo 7 ma bodov: 5
Druzstvo 8 ma bodov: 6
Druzstvo 9 ma bodov: 3
Druzstvo 10 ma bodov: 11
Miesto  Druzstvo        Bodov
1       2       14
2       10      11
3       1       6
4       8       6
5       7       5
6       4       3
7       6       3
8       9       3
9       3       2
10      5       2
Druzstva spolu ziskali 55 bodov

Zdrojak:

program druzstva;

type
	TZaznam = 
		record
			druzstvo : integer;
			bodov : integer;
		end;
		
	TZaznamy = array of TZaznam;

procedure NacitajData(var data : TZaznamy);
var i,pocet : integer;
begin
	write('Zadaj pocet druztiev: ');
	readln(pocet);
	setlength(data,pocet);
	for i:=0 to pocet-1 do
		begin
			write('Druzstvo ',i+1,' ma bodov: ');
			data[i].druzstvo := i+1;
			readln(data[i].bodov);
		end;
end;

procedure ZotriedDataPodlaPoctuBodov(var data : TZaznamy);
var 
	i : integer;
	triedene : boolean;
	pomzaznam : TZaznam;
begin
	repeat
		triedene := false;
		for i:=0 to high(data)-1 do
			if data[i].bodov < data[i+1].bodov then
				begin
					pomzaznam := data[i];
					data[i] := data[i+1];
					data[i+1] := pomzaznam;
					triedene := true;
				end;
	until not triedene;	
end;

procedure VypisData(data : TZaznamy);
var i, sucet : integer;
begin
	writeln('Miesto'#9'Druzstvo'#9'Bodov');
	sucet := 0;
	for i := 0 to high(data) do
		begin
			writeln(i+1,#9,data[i].druzstvo,#9,data[i].bodov);
			sucet := sucet + data[i].bodov;
		end;
	writeln('Druzstva spolu ziskali ',sucet,' bodov');
end;

var zaznamy : TZaznamy;

begin
	NacitajData(zaznamy);
	ZotriedDataPodlaPoctuBodov(zaznamy);
	VypisData(zaznamy);
end.
Re: družstva - PASCAL
(link)
7.6.2007 21:10
dvhx
Věk: ( ~42 let)

A podakovat nic? Nabuduce sa ti na to vyseriem.

Re: družstva - PASCAL
(link)
7.6.2007 22:13
Ondřej Čečák (TEAM)
Věk: ( ~38 let)

:)

DISKUZE

družstva - PASCAL 4.6.2007 15:28 Nikola Asusova
  L Re: družstva - PASCAL 4.6.2007 21:54 dvhx
    L Re: družstva - PASCAL 7.6.2007 21:10 dvhx
      L Re: družstva - PASCAL 7.6.2007 22:13 Ondřej Čečák




Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

28.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

31.7.2023 14:13 / Linda Graham
iPhone Services

30.11.2022 9:32 / Kyle McDermott
Hosting download unavailable

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2024) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze