Diskuze a otázky - Kde v tom je chyba ?

úvodní strana | aktualizovat | dolů

nInJa.

nInJa. | 19. 03. 2009, 21:07:39 | příspěvky uživatele | napsat uživateli

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i:integer;
s:string;
begin
writeln('Zadejte vety');readln(s);
for i:=1 to length(s) do begin

if (s[i] <> ' ') and (s[i-1] in ['.','!','?']) then begin
case s[i-1] of
'.','!','?' : write(' ',UpCase(s[i]))
else write(s[i]); end; end

else
if(s[i] = ' ') and (s[i-1] in ['.','!','?']) then begin
UpCase(s[i+1]); end end
else write(s[i]);


end;

reagovat

V diskuzi je 28 příspěvků a shlédlo ji 484 uživatelů .

Pro přidání komentáře musíš být přihlášen(a).

Suarez

Suarez | 19. 03. 2009, 21:34:46 | více příspěvků | napsat uživateli

jo holka tuto je supa počkej si na crt knihovny z toho chípám já podělaný crt

uživatel eliminován | 19. 03. 2009, 21:28:51

problém bude nejspíš mezi klávesnicí a židlí !785!

uživatel eliminován | 19. 03. 2009, 21:26:31

> Sariiinka... Jsme na tom stejně!811!

uživatel eliminován | 19. 03. 2009, 21:22:22

docela podobný VB6 ale v tomhle ti neporadím

uživatel eliminován | 19. 03. 2009, 21:22:14

za begin mas mit uvozovky a radek pod ma bejt otaznik!1309!!1309!!1309!!1309!!1309!!1309!

uživatel eliminován | 19. 03. 2009, 21:22:01

uprostřed !967!

uživatel eliminován | 19. 03. 2009, 21:20:56

videte a ja pisu normlane a rozumi tomu kazdej xD

Sariiinka...

Sariiinka... | 19. 03. 2009, 21:19:44 | více příspěvků | napsat uživateli

Nesnášim pascala !984!, dělam v něm 4 hodině tejdně a umírám !984!

uživatel eliminován | 19. 03. 2009, 21:15:39

ale podle toho jak koukám tak ti za tím předposledním end chybí ; nebo za tím před tím ho máš navíc...

nInJa.

nInJa. | 19. 03. 2009, 21:15:15 | více příspěvků | napsat uživateli

ok, ja vám to teda řeknu !20!!24! neni to dodelany !2!!2!!2!!2!

_cLAiRe

_cLAiRe | 19. 03. 2009, 21:15:14 | více příspěvků | napsat uživateli

pokažené to je

chmeldaa

chmeldaa | 19. 03. 2009, 21:14:27 | více příspěvků | napsat uživateli

asi někde v textu !2!

uživatel eliminován | 19. 03. 2009, 21:13:52

kdybys to měl v jave, v C nebo C++ tak bych ti poradila, ale tohle teda zrovna neumím...

uživatel eliminován | 19. 03. 2009, 21:13:21

asi nějakej mongol píše!1350!

uživatel eliminován | 19. 03. 2009, 21:12:55

to deláš v pascalu?

xpusineczkax

xpusineczkax | 19. 03. 2009, 21:11:19 | více příspěvků | napsat uživateli

mě to celé přijde jako velkej error!1388!

uživatel eliminován | 19. 03. 2009, 21:11:06

van en bombito!!1286!

uživatel eliminován | 19. 03. 2009, 21:10:58

ehm... česky by to nebylo??!811!

uživatel eliminován | 19. 03. 2009, 21:10:50

nějakej programator!802!!508!

uživatel eliminován | 19. 03. 2009, 21:10:33

!1075!!1191!

DaNca.16

DaNca.16 | 19. 03. 2009, 21:10:32 | více příspěvků | napsat uživateli

!1302!

Bekket

Bekket | 19. 03. 2009, 21:10:32 | více příspěvků | napsat uživateli

s packalem di někam

nInJa.

nInJa. | 19. 03. 2009, 21:10:06 | více příspěvků | napsat uživateli

hej !2!!2!!2!!2!

L.ucian.A

L.ucian.A | 19. 03. 2009, 21:09:47 | více příspěvků | napsat uživateli

!2!!5!!5!!2!!2!!5!!2!!2!!5!!5!!2!

L.ucian.A

L.ucian.A | 19. 03. 2009, 21:09:25 | více příspěvků | napsat uživateli

!20!!20!!20!!20!!20!

uživatel eliminován | 19. 03. 2009, 21:09:24

njn blbec :D xD tk asi ti tam chybej čárky a hačky co ja vim :D

uživatel eliminován | 19. 03. 2009, 21:09:10

I don't uderstand !984!

Kitty.Gab

Kitty.Gab | 19. 03. 2009, 21:08:32 | více příspěvků | napsat uživateli

a teď česky !811!


Přihlášení
 
@libimseti.cz

registrovat se

Klíčová slova

endbeginwriteelseandthenupcasechybafórproject1consoleapptypecasuswritelnprogramvarstringvetosysutilsusesintegerreadlnlength

Podobná témata

Moje témata

Pro zobrazení tvých diskuzí se musíš přihlásit.

Oblíbená témata

Pro zobrazení tvých oblíbených témat se musíš přihlásit.

k obsahu ↑