Pomoc s pascalom

lojzo.112

Bola by tu dobra dusa co by mi vedela urobit toto zadanie?

Napíšte program, ktorý v danej vete (jeden reťazec) zmení prvé písmeno vety na veľké a ostatné písmená na malé. Na konci vety pridá bodku.

Zadanie vypracujte nasledovne:

1. Vykonajte analýzu všetkých potrebných vstupných a výstupných premenných. Stanovte ich dátový typ.

2. Zostavte štruktogram.

3. Zostrojte program v Pascale.

Diki moc

program ti urobí hocikto ak si nájde čas a chuť, ale nemyslím si, že sa niekomu bude chcieť babrať s vývojakom a štrukturogramom

a mimochodom: presunuté z pomoci do programovania

feromakovi

ahoj,
neviem robit ziadne veci co si popisal tie strukturogramy a podobne somariny ale spravil som ten program v pascali dufam ze pomoze:

Kód: Vybrať všetko

program vetka;
uses crt;
var veta:string;
i:integer;
txt:text;
begin
assign(txt,'pokus.txt');
rewrite(txt);
clrscr;
write('Zadaj mi tvoju vetu: ');readln(veta);
for i:=1 to length(veta) do if (ord(veta[i])>=65)and(ord(veta[i])<=90) then veta[i]:=chr(ord(veta[i])+32);
veta[1]:=chr(ord(veta[1])-32);
writeln;
i:=0;
if veta[length(veta)]='.' then i:=1;
write(txt,veta);
if i=0 then writeln(txt,'.');
if i=1 then writeln(txt,'');
reset(txt);
readln(txt,veta);
writeln(veta);
close(txt);
erase(txt);
readln;
end.

rad som pomohol program mozno neni programovany super pouzil som tam aj txt dokument ktory sa ale sam vymaze ale je 100% funkcny.

lojzo.112

diki moc

//autoeditácia príspevku ( 11 Dec 2008, 16:35 )
Skusil som ten vyvojovy diagram. Moze sa mi na to nejaka dobra dusa kuknut ze ci je to dobre? Dik ...

začiatok a koniec má byť ovál, nie obdlžnik s oblými rohmi. Cesty nemôžu ísť šikom, iba v uhloch 0 a 90°, nemôžu sa pretínať. Vstupy a výstupy sú v kosodlžnikoch, nie v obdlžnikoch (tie slúžia na kroky výpočtu). Z formálnej stránky tvoj vývoják nesplňa absolútne žiadne štandarty.

//autoeditácia príspevku ( 06 May 2009, 14:58 )
nechcem vytvarat novu temu takze napisem sem... takze moj pribeh naprogramovat naprogramujem no problem ale vyvojovy diagram to uz premna problem je bola by tu nejaka dobra dusa co by mi ho zbuchala ? k+ a samozrejme ho pozvem aj na pivo

Kód: Vybrať všetko

{Roman Sedivy, LC1, 2008/09, Sucet matice} 
Program ma; 
uses crt; 
var  s:array[1..10]of byte; 
     i,j,max:byte; 
     a:array[1..10,1..10]of byte; 

procedure matica; 
begin 
clrscr; 
gotoxy(20,1);textcolor(139);write('<<<MATICA>>>'); 
randomize; 
textcolor(white); 
writeln; 
for i:=1 to 10 do 
for j:=1 to 10 do a[i,j]:=random(10)+1; 
for i:=1 to 10 do 
begin 

for j:=1 to 10 do write (a[i,j]:5); 
writeln; 
end; 
writeln; 
gotoxy(17,12);textcolor(13); 
write('<<<sucet stlpcov>>>'); 
textcolor(139); 
readln; 
end; 

procedure sucet; 
begin 
for j:=1 to 10 do 
begin 
s[j]:=0; 
for i:=1 to 10 do s[j]:=s[j]+a[i,j];end; 
for j:=1 to 10 do write(s[j]:5); 
readln; 
end; 
procedure sucet2; 
begin 
writeln; 
max:=s[1]; 
for j:=1 to 10 do if s[j]>max then max:=s[j]; 
textcolor(12);write('Najvcsi sucet= ',max); 
readln; 
end; 

procedure stlp; 
begin 
for j:=1 to 10 do 
if max=s[j] then 
begin 
textcolor(12);writeln('Najvacsi sucet je v ',j,'. stlpci'); 
readln; 
end; 
end; 
begin 
matica; 
sucet; 
sucet2; 
stlp; 
end.

edit

ako vidim setci namna kaslete... ok tak tenkto to spravi dostane odomna na rapidko.net 30linkov ...

neutronmind

...nikomu sa s tym nechce babrat. Skus spravit nieco sam a posli sem na kontrolu.

Pomoc s pascalom

Pomoc s pascalom

odpoved