Anonymní profil Lukáš – Programujte.com

Dobrý den,

potřeboval bych poradit s procedurou.

Pseudokod:

1) Mám 2 spojové seznamy např.  

a dvě globální proměnné s hodnotou integer.

2) Chtěl bych proceduru, která mi projede první spoják  a pokud se tam vyskytuje první proměnná, tak do druhého spojáku přidá druhou hodnotu integer.. jinak pokud se tam nevyskytuje, tak  přidá první hodnotu  do prvního seznamu a do druhého seznamu přidá druhou hodnotu. 

Pro příklad by to mělo vypadat takhle.

Mám 1 prom. = 1
         2 prom. = 2

V prvním spojáku  je už např. 1, tak to přidá do druhého spojáku 2.

Další příklad:  mám  1.prom. = 1

                                 2 prom. = 2

první spoják je prázdný, tak do prvního přidám hodnotu 1 a do druhého hodnotu 2.

type TList = ^Node;
     Node = record
              Info: integer;
              Next: TList
            end;

type TList2 = ^Node2;
     Node2 = record
              Info: integer;
              Next: TList2
            end;

Už to asi mám..

A jakým způsobem to teda mám obejít? Aby mi to tu chybu neházelo? Učili jsme se spojáky hodinu a hned mám dělat tohle...

Ale po cyklu má být nil, tak tohle už fakt nevím co tam je za chybu..

Aha, tak po cyklu while už je nil to bude nejspíš ta chyba..

Tam jsem to zkontroloval a ne p není nil...

A jak by to teda mělo být? Trápím se tu s tím už hrozně dlouho...

Ahoj,

mám problém s procedurou Hledej u spojového seznamu..

procedure Hledej(P:Uk);
var x:integer;
begin
 x:=5;
 while (p <> nil) and (p^.info <> x) do p:= p^.Dalsi;
 if p^.info <> x then writeln('Nenaslo se')
 else writeln('Naslo se');
end;

Když se daný prvek nachází ve spojáku vypíše se to, ale když se tam nenachází hodí to error: acces violation... nevím co s tím..

Předem díky.

Jiný návrhy? Prosím :D

Základy práce s terminálem, teď se budeme učit v shellu, ale o to nejde. Bylo mi řečeno, že ty věci co nebudeme umět se máme kvůli zápočtu naučit. Mělo by se jednat o nějaké téma, které není ani těžké ani lehké.

Zase takový profík v Linuxu nejsem :D

Jakékoliv ohledně operačního systému Linux. 

Dobrý den,
potřeboval bych navrhnout nějaké téma na zápočtovou práci, aby alespoň zabírala 8 hodin práce. Vše co mě napadlo vůbec takový čas nezabírá. Předem děkuji za návrhy.

Dobrý den,

mám problém mám rovnice v textovém souboru a chci jsi uložit levou stranu rovnice do jednoho pole a druhou stranu rovnice do pole druhého. Počet rovnic a počet neznámých mám předem daný, tudíž ho vím.

Předem děkuji za pomoc.

Ahoj,

potřeboval bych přečíst soubor kde na prvním řádku mám 2 čísla odděleny mezerou a a každé číslo načíst do proměnny.

Děkuji za případnou pomoc

#4 KIIV
To jo, ale mě jde o to jak zjistím ten počet, když mám ty čísla na řádce oddělena mezerou a není to pole :)

#2 JoDiK
Tu úlohu 3.10 http://yetty.github.com/seminar/priklady.pdf
mě nenapadá jak spočítat, vím jak bych to spočítal přes pole, ale tady netuším. Poradíš? :)

Zdravím,

nevíte nebo nemáte někdo nějaké příklady z Pascalu pro začátečníky a pokročilé? 
Potřeboval bych si zoopakovat Pascal a nikde jsem nenašel nějakou sbírku úloh.

Předem děkuji za odpovědi.

Dobrý den,

neznáte nějaké dobré tutoriály, skripta nebo učebnice na Pascal online? Jde mi jen o konzolové aplikace. 

Předem děkuji J.

Mircosofte napsal jsem ti do knihy návštěv na web.
Díky Jakub

Tak nevím jak to vyřešit bez pole...

Jsem ztracený :/

Program už mám, ale ještě ne pro moc čísel.

Zkusím to ještě nějak pořešit.

Nemůžu uložit všechna čísla, jinak můžu mít pole, ale ne moc velké.

Mám tam napsaný, že čísla nemůžu ukládat do pole tzn. že pole 0 až milion si udělat nemohu..

Dobry den,

v textovém souboru mám uložena celá čísla oddělená mezerami. Počet čísel v souboru neznám, ale může být velmi velký tzn. nemůžu je ukládat do pole. Potřebuji zjistit počet různých hodnot obsažených v tomto souboru.

Mohl by mě někdo poradit? Jsem nováček.

Děkuji

Napsal jsem ti email.

#6 Mircosoft
Ok díky moc!

#4 lukas.balaz
Já bych potřeboval někoho kdo Pascalu rozumí, aby mi poradil s pár příklady.. Přijde mi, že na to že jsem nováček dostávám moc těžký úkoly... 

#2 lukas.balaz
Ty čísla mají mít až 200 dekadických cifer.

Dobrý den,

potřeboval bych nějak nakopnout jak nejefektivněji udělat součet všech čísel v souboru.

Čísel je méně než 500 000 a každé číslo je na samostatném řádku.

Předem děkuji za odpověď.

Ahoj Mircosofte,
mohl bych se ti taky ozvat? Chtěl bych jen poradit s pár problémy co mám.
Díky

Dobrý den,

mám za úkol najít v poli největší prvek, který se v zadané posloupnosti vyskytuje alespoň čtyřikrát.

Zatím jsem udělal:

 Max := 0;
    for i:= 1 to N do
     begin
       if Prvek[i] > Max then
         begin
          Max := Prvek[i];
          Pocet := 0;
         end;

Což mi zjistí max prvek, dále jsem udělal:

if (Prvek[i] = Max) then
    begin
     inc(Pocet);
    end;

Což mi zjistí kolikrát se tam vysktytuje, ale mám problém s poslední podmínkou..

if (Prvek[i] > Max) and (Pocet >=4) then
  begin
  Vys := Max;
  end;

Prosím o radu.