«<1 2 3 4 >»
Zakladateľ témy
Pascal pomoc Cituj
- nInJa

-
Počet príspevkov: 157
lidi potrebuju pomoc, sem lama vim to, pls pomcote stimto, potrebovla bych to do vecera --

1. Z klavesnice znaku nactete vetu zakoncenou teckou. V zadane vete nahradte vsechna mala pismena velkymi a vypiste na obrazovku po jednotlivych slovech od konce.

2. Zadejte jako text matem. operaci se dvema cisly. Zapis zpracujte ciselne a vysledek vypiste na obrazovku
Pr.: vstup: 2+3=
vystup: 2+3=5

3. Nactete z klavesnice retezec, vypiste kolik procent z retezce zabiraji mala pismena.

4. Z klavesnice nactete nekolik vet. Zjistěte pocet malych, velkych pismen, pocet slov, pocet vet a pocet cislic. Vysledky vypiste na obrazovku.

5. Spočítejte v textu počet malých písmen, matem. operátorů a samohlásek.

6. Provedte v zadanem retezci zamenu velkych pismen za mala a soucasne mala za velka. Vysledny retezec vypiste.

7. Po zadani nekolika vet zajistete, aby na zacatku vet byla vzdy velka pismena.
Pr.: vstup:...hodin?je deset...
vystup: ...hodin? Je deset...
Pridané: 11.03.2009 17:10:55
Autor
RE: Pascal pomoc Cituj
-- Angelo

-
Počet príspevkov: 277
To musí byť Pascal hej? -
Pridané: 11.03.2009 17:12:54
Zakladateľ témy
RE: Pascal pomoc Cituj
- nInJa

-
Počet príspevkov: 157
bohuzel ano
Pridané: 11.03.2009 17:14:19
Zakladateľ témy
RE: Pascal pomoc Cituj
- nInJa

-
Počet príspevkov: 157
mozno ze kdyby bylo neco podobneho pascalu zebych to nak predelal
Pridané: 11.03.2009 17:15:01
Zakladateľ témy
RE: Pascal pomoc Cituj
- nInJa

-
Počet príspevkov: 157
aspon to jak jak udelam 'a vypiste na obrazovku po jednotlivych slovech od konce.' pls -
Pridané: 11.03.2009 17:54:19
Autor
RE: Pascal pomoc Cituj
- Endy

-
Počet príspevkov: 190
vies ze aj ja maturujem s tochto programu ale zatial ho nejak nvm pochopit cize neporadim -
Pridané: 13.03.2009 16:23:32
Zakladateľ témy
RE: Pascal pomoc Cituj
- nInJa

-
Počet príspevkov: 157
uz vim jak na tu jednicku ^_- ale kdyz to dam vypsat tak se mi misto slova do p[1] napise celej string a to fakt nechapu kdyz mam nastavene aby se po mezere nahravalo dalsi slovo do p[2];
Pridané: 13.03.2009 16:31:14
Autor
RE: Pascal pomoc Cituj
---Gold rEs0LuTe

-
Počet príspevkov: 281
s php by som ti vedel pomoct, ale v pascale nie -
akurat ten 2. myslim ze by som v pascale vedel -


program lol;
uses crt;
var a,b;
begin
clrscr;

read(a);
write(' + ');
read(b);
write(' = ');
clrscr;
write(a,' + ',b,' = ',(a+b));
readkey;
end.


myslim, ze tak nejak, niesom si isty, nemam tu pascal na odskusanie takze neviem.
Pridané: 13.03.2009 17:17:15
Zakladateľ témy
RE: Pascal pomoc Cituj
- nInJa

-
Počet príspevkov: 157
reso, dobré, akorat toto neni presne co po me chteji -, je to ze zadas cely text do string, a znej musim vybrat ty cisla, prevedes je pomoci valu (asi) do integeru a udelas soucet. A kdyz ted to pisu asi vim uz jak - du to zkusit -

Pridané: 13.03.2009 18:02:20
Zakladateľ témy
RE: Pascal pomoc Cituj
- nInJa

-
Počet príspevkov: 157
paráda --
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
s:string;
i,code,index:integer;
a:array [1..3] of integer;

begin
index:=0;
writeln('Zadej matematickou operaci (x+y=)');readln(s);
for i:=1 to length(s) do begin
case s[i] of
'0'..'9' : index:=index+1;
end;
case s[i] of
'0'..'9' : val(s[i],a[index],code);
end;
end;
write(a[1],'+',a[2],'=');writeln(a[1]+a[2]); readln;


end.


ted vymyslet ty další -
Pridané: 13.03.2009 18:20:42
«<1 2 3 4 >»
ShoutBox
14.06.2018 19:05:25
Legendy pls nemate este niekto v kompe ulozene moje crazy jumping 2jku? pls dam zato vsetko -
05.06.2018 15:05:43
-
04.06.2018 11:28:44
Nedávno som sem znova zablúdil a som neskutočne rád že sa kzsk scéna stále drží -. Vidím že zraz som zmeškal, chcelo by to ešte jeden a s poriadnymi oldschool legendami -
21.05.2018 16:08:21
-
03.04.2018 23:55:13
napis mi na steam, poslu ti neco
01.03.2018 15:00:07
Zdravím ked už hráči čo mam na steame moc nehravaju tak by som mohol niekomu odtialto editovať nejake dema - moj kanal na yt -link-
učím sa na novších veciach v editovaní - začal som pred cca 1 a pol mesiac vzad xd
All rights reserved 2007-2017 © by KZSK.sk # Coded by Jakub "rEs0LuTe" Sedláček. Designed by Oldřich "jab" Selner.