» Poradna » Programy

Poradí mi někdo s pár příklady v pascalu, prosím

 |   | 

Pomohl by mi někdo PROSÍM s těmito příklady v pascalu? 2. a 3. příklad by měly být na cyklus for. Fakt si nevím rady. Díky moc všem.1. Jsou dány souřadnice bodu v rovině. Zjisti, zda tento bod leží na přímce  3x + 2y - 3 = 02. Spočítej hodnotu obecné mocniny xn (x na entou)   pro dané reálné číslo x a přirozené číslo n3. Spočítej součet převrácených hodnot všech kladných celých čísel od 1 do daného N

Odpovědi na otázku

 |   | 

program Jedna;uses Crt;var X,Y : integer; (nebo real)beginwriteln('Zadej x-ovou a y-ovou souřadnici bodu'); read (X,Y);if ((3*X+2*Y-3)=0) then writeln('Zadaný bod leží na přímce ') else writeln ('Zadaný bod neleží na přímce');end.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

program Dva;uses Crt;var Vysledek, X : real; I, N : integer;beginwriteln ('Zadej reálné číslo X a mocninu N'); read (X, N);Vysledek := 0;for I = 1 to N do Vysledek := Vysledek * X;writeln ('Vysledek je ', Vysledek);end.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Nojo, mám tam chybu. Správně je opravdu Vysledek := 1No ale když je to rada zadarmo ...Pavel

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

program Tri;uses Crt;var Vysledek,Krok: integer;var I,N: real;beginwriteln("Zadej horni mez pro soucet prevracenych hodnot od 1");read (N);vysledek:=0;for I=1 to Nbegin    Krok:= 1/I;    vysledek:= vysledek + Krok;end;writeln("Vysledek je", Vysledek);end.// nevim zda to bude syntaxicky spravne, ale hold jsem v pascalu naposled delal pred nekdy 4-5 roky, takze sorry Ta myslenka tam je, aplikuj ji na pascal Je to tim ze clovek se uci spoustu jazyku a nicemu se nevenuje poradne a pak se mu vse plete dohomady, sedi mi vic jiny jazyk 

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Díky moc, 1.šlape                 2. jsem poopravil :..........................Vysledek := 1;                                                                  ....sice to nechápu, ale šlape to (vysvětlíte ?)for I := 1 to N do Vysledek := Vysledek * X;writeln ('Vysledek je ', Vysledek:3:2);                3. nechodí...píše to  Ivalid control variable        i když sem tam přidal I := 1 to N do ale i tak moc děkujumůžete mi někdo polopatě vysvětlit ten cyklus for ???

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Ten treti priklad jsel poupravil a je funkcni:program Tri;var i,N: integer; vysledek: real;beginwrite('Zadej horni mez pro soucet prevracenych hodnot od 1');readln(N);vysledek:=0;for I:=1 to N do vysledek:= vysledek + (1/i);writeln('Vysledek je ', Vysledek:3:2);end.Vysvetleni pro cyklus for:promena v cyklu for muze byt pouze ordinalniho typu (integer, byte, char s vyjimkou boolean), nemuze byt type real, double a tak dale

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

jo, melo by to bejt funkcni. ja nemam moznost overit funkcnost na tomhle PC. Kazdopadne myslenka je dobra a tva uprava je v podstate jen dani dvou mich radku do jednoho Overil jsem si funkcnost aspon v ASP, to mi tady jediny funguje Pro zajimavost to uvadim nize, aby bylo videt, ze staci vedet jak na to a pak uz je to jen o sintaxi ...<form method="POST" action="default.asp">Zadej císlo jako horni mez pro soucet cisel 1 až N<br> "" Then response.write "soucet prevracenych hodnot pro cisla 1 az " & N & " je " & vysledekend if%</form>...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

aha, oni to maji osetreny, takze znova:<form method="POST" action="default.asp"><br>Zadej císlo jako horni mez pro soucet cisel 1 až N<br><input type="text" name="N" size="20"><br><input type="submit" value="Odeslat" name="cislo"><br><br><%<br>N=Request.Form("N")<br><br>For I=1 To N<br>krok=1/I<br>vysledek= vysledek + krok<br>Next<br><br>if N <> "" Then<br>response.write "soucet prevracenych hodnot pro cisla 1 az " & N & " je " & vysledek<br>end if<br>%><br></form>

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

snad ted uz spravne :)...<form method="POST" action="default.asp">Zadej císlo jako horni mez pro soucet cisel 1 až N<input type="text" name="N" size="20"><input type="submit" value="Odeslat" name="cislo"><br><%N=Request.Form("N")For I=1 To Nkrok=1/Ivysledek= vysledek + krokNextif N <> "" Thenresponse.write "soucet prevracenych hodnot pro cisla 1 az " & N & " je " & vysledekend if%></form>...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

K prikladu 2:S nastavenim Vyslede:=0; ti to vzdy hodi 0, protoze nasobeni 0 je vzdy 0...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

no jasny diky moc a stastnej novej rok

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

V příkladu 3 byla chyba v tom, že řídící proměnná cyklu byla typu real a to není přípustné.Náznak vysvětlení cyklu for. Cyklus obecně je programová konstrukce umožňující provádět 1 nebo více příkazů opakovaně. Existují cykly s pevným počtem průchodů (provedení) - cyklus for; cyklus s podmínkou na začátku - cyklus while; cyklus s podmínkou na konci - syklus repaet until.for řídící_proměnná_cyklu := počáteční_hodnota to koncová_hodnota do vykonej_tento_příkazfor I := 1 to 5 do X := X * 10;cyklus se provede 5krát (I se bude postupně měnit od 1 do 5), vždy se vykoná příkaz X := X * 10; tj, proměnná X se vynásobí desetiPavel

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

díky  supr

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Reálné číslo, Souřadnice, Cyklus


Určitě si přečtěte

Hledá se způsob, jak uložit elektřinu. Možná pomohou obří gravitační baterie

Hledá se způsob, jak uložit elektřinu. Možná pomohou obří gravitační baterie

** Jak uložit elektřinu z fotovoltaiky a větrných turbín ** Pomohou třeba staré autobaterie, nebo setrvačníky ** A pak tu jsou bizarní gravitační akumulátory velikosti mrakodrapu

Jakub Čížek | 250

Jak doma vylepšit signál Wi-Fi: Pomůže repeater, více routerů, ale nejlépe systémy mesh

Jak doma vylepšit signál Wi-Fi: Pomůže repeater, více routerů, ale nejlépe systémy mesh

** Máte špatný signál Wi-Fi? Mesh systémy to vyřeší ** Už vás nezruinují, meziročně ceny příjemně spadly ** Jak systém funguje a čím je výjimečný?

Jiří Kuruc | 108

Už desítky let se pokoušíme odposlouchávat mozek. Rusům se podařil kousek, ze kterého vám spadne brada

Už desítky let se pokoušíme odposlouchávat mozek. Rusům se podařil kousek, ze kterého vám spadne brada

** K odposlechu mozků používáme EEG ** To má ale žalostné informační rozlišení ** Rusům pomohla počítačová neuronová síť

Jakub Čížek | 29

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

** Součástí Windows 10 je integrovaný antivirový program. Stačí to? ** Představíme vám sedm aplikací na boj proti virům a malwaru ** Všechny jsou k dispozici zdarma a některé ani nemusíte instalovat

Karel Kilián | 31

Google Coral: Raspberry Pi s čipem, který zpracuje 4 biliony operací za sekundu

Google Coral: Raspberry Pi s čipem, který zpracuje 4 biliony operací za sekundu

** Je to velké jako Raspberry Pi ** Ale je to až o několik řádů rychlejší ** Dorazil nám exotický Google Coral s akcelerátorem Edge TPU

Jakub Čížek | 18

Pojďme programovat elektroniku: České chytré zásuvky Netio pro kutily i firmy

Pojďme programovat elektroniku: České chytré zásuvky Netio pro kutily i firmy

** Wi-Fi zásuvky nevyrábí pouze Čína ** Vyzkoušeli jsme českou Netio PowerCable ** Je přímo určená pro vývojáře, má totiž jednoduché JSON API

Jakub Čížek | 44


Aktuální číslo časopisu Computer

Megatest: 20 powerbank s USB-C

Test: mobily do 3 500 Kč

Radíme s výběrem routeru

Tipy na nejlepší vánoční dárky