Vein [ Sannin ]
do ludzi programującycdh w DELPHI. POMOCY!!
hmm dostalem od kumpli kilka zadan.. są to zadania na poprawe z informatyki... bardzo ladnie mnei poprosili bym to zrobil a ja glupi sie zgodzile... to byl moj blad ob sie okazalo ze ja teraz jakos nei mam glowy do tego (chory jestem).. a wiec przejdzmy do rzeczy.. gdybyscie mogli pomoc mi zrobic te 6 zadac (nawet za 5 bylbym wniebowziety) to bylbym baardzo dźwięczny, a oto zadania:
1)napisz program realizujący następujące zadanie: połącz pliki tekstowe peirwszy.txt otaz drugi.txt, wynik : plik trzeci.txt połaczone teksty z peirwszy.txt i drugi.txt z wyjątkiem pustych wierszy.
2) plik tekstowy abc.txt z dowolnym tekstem. wyniki: plik tekstowy abc.txt z dopisanym zestawieneim tekstowym:
liczba samogłosek -
liczba spółgłosek -
liczba spacji -
3)
(to zadanie sam zrobie, proste jak sik komara :P)
napisz ptogram realizujący następujące zadanie:
dane: k - kwoda kredytu
l- liczba rat
p - oprocentowanie f(k)
wyniki R - rata miesięczna
4) (jabardziej chore zadanie jakiekolwiek widziałem)
Napisz program który będzie sprwazał czy dany ciąg znaków jest palindromem i wypisze wszystkie palindromy z wczytanego tekstu. Aby sprawdzić czy dany ciąg jest palindtomem porównujemy pierwszy znak z ostatnim drugi z przedostatnim itd. sby nie porównywać tych samych znaków podwójnie należy ograniczyć sprawdzanie do połowy ciągu. zastosować do tego celu można instrukcje DIV, sprawdzając dzielenie liczb całkowitych przez 2 otrzymujemy w ten sposób część całkowitą np c:=dlugosc DIV 2; for i:=to n do itd. do liczenia identycznych par liter zastosuj procedure zliczaj
5) napisz program sptawdzający czy podane przez uzytkownika imie jest imieniem żeńskim czy męskim złąożenie:L wszysktie polskie imiona żeńskie kończą się na literę "a" (nie mam pojecia jak pobrać ostatnią litere z wyrazu i porównac)
6 Napisz program zliczający wprowadzane liczby ujemne i nieujemne dla n liczb wprowadzonych z klawiatury . Do zliczania liczb napisz procedure zliczaj.
z góry dzieki za pomoc...
Belm [ Konsul ]
Vein -> Pojawię się w domu ok 19, jeśli do tego czasu nikt Ci nie pomoże to ja spróbuję.
Tak na szybko:
5)
if imie[length(imie)] = 'a' then
Begin
// Żeńskie
End
else
BEgin
// Meskie
End;
[edit dla oligarchów] literówki
Wypowiedź została zmodyfikowana przez jej autora [2004-11-25 15:08:59]
Swidrygajłow [ ]
4)
w c++ builderze, nie wiem czy działa bo piszę na oślep
TStringList *Lista1=new TStringList();
// w Lista1 wyrzy do sprawdzenia
TStringList *Lista2=new TStringList();
// w Lista2 wyrazy sprawdzone
bool ok=true;
for (int i=0; i<Lista1->Count;i++)
for (j=1; i<=(int)(Lista1->Strings.Length()/2);j++)
ok=true;
if (Lista1->Strings.[j]!=Lista1->Strings.[Lista1->Strings.Length-j])
j=(int)(Lista1->Strings.Length()/2;
ok=false;
if (ok) Lista2->Add((Lista1->Strings);
Swidrygajłow [ ]
DUPA, forum pozmieniało [ i ] na styl italic
Swidrygajłow [ ]
-->
powtaerzam ż enei wiem czy działa :))))))))))))))))))))))))) )))))))))))))))) )))))))))))))))))))))))))))))(((((((((((((()))))))))))))
kastore [ Troll Slayer ]
Zadanie 1
sorki nie testowane , ale wygląda logicznie :)
jedyne co to może ten while jakoś krzywo dzialać
kastore [ Troll Slayer ]
Zadanie dwa
to na czerwono to jest
'a','e','i','o','u' : inc(samgl);
' ' : inc(space);
kastore [ Troll Slayer ]
Na reszte może znajde czas po południu albo jutro
Swidrygajłow [ ]
a swoją drogą Vein dziwne że zobowiązałeś siępomóc koledze mając tak nikłą wiedzę
peners [ SuperNova ]
Ja obiecałem kumpeli na onfe zrobić stronke internetową ale wiedza z przed 3 lat i zapał zdązyły mi uciec :/ W 2 gim dostałem 6 6 6 takie oceny stronka była łądna jak na ten wiek i umiejętności można się było pochwalić a dziś czuje ze nawet takiej nie zrobie ;/
Vein [ Sannin ]
Świdrygajłow - widza jest ok, i nie jest proble mz wiedzą tlyko ze stane m w jakim jestm... przyplatalo sie jakies choróbsko, proboje udawac grype (posadzone gardlo, brak apetytu, bóle miesniowo-stawowe, goraczka powyzej 39*C) ale co smiesznego w tym wszystkim to oslabilo mnie po 2 dniach do tego stopnia ze np dizsiaj krew z nosa leciala mi 2 razy :/... poprsotu nie jestem w stanie myslec... gdybym normalnie sie czul to by nie bylo problemu ze zrobieneim
Vein [ Sannin ]
kastore - wielkie dzieki tylko... w tym programie ze zliczaniem samoglosek i spolglosek zrobiles zliczanie itp ale nie zrobiles chyba dopisywania tego do pliku :/ ... jako ze niewiem praktycznie co ten program robi i jak robi (nie wnikalem w programownaie delphi w tym stopniu) wiec neiweim jak to wszystko poskladac do kupy... kurde w przeciagu 3-4 miesiecy musze sie nauczyc programowac w c++ na poziomie przynajmniej szkolnym... mam nadzieje ze mi sie uda...
kastore [ Troll Slayer ]
A kurde faktycznie zapomnialem , spieszylem sie wyjsc z roboty
przed komendą finally trzeba dac
abc.Add('Liczba samogłosek - '+IntToStr(samgl));
abc.Add('Liczba spółgłosek - '+IntToStr(spgl));
abc.Add('liczba spacji - '+IntToStr(space));
abc.SaveToFile('abc.txt')
kastore [ Troll Slayer ]
reszte dorobie jutro rano w pracy może, powiedz czy wyslać Ci to mailem w formie procedur pod przyciski??
Vein [ Sannin ]
kastore - na maila podeslij, byłbym wdzieczny gdybys mi opisal jak to wszystko dziala... oprocz zrzynanai jak glupi chetnie bym sie czegos tez nauczyl (ostantio w delphi robilem sam cokolwiek gdziez z pol roku temu, moze jeszcze dawniej...)
kastore [ Troll Slayer ]
Zadanie 1 jest skopane, tam jest "za wyjątkiem pustych wierszy" , a ja wykasowałem spacje ze wszystkiego.
Jak znajde chwile to poprawie
Vein --> jakie masz Delphi??
kastore [ Troll Slayer ]
Vein --> Poszedł mail z gotowym projektem w Delphi , ale pozostałe zadania na razie musisz sam pogłówkować
Swidrygajłow [ ]
mam nadzieje że mój program pomógł, z przerobieniem z buildera na delfi nei powinno być problemu bo obydwa środowiska korzystają z bibliotek VCL
kastore [ Troll Slayer ]
Swidrygałjow --> Jak znajde chwile to to przerobie, ale wiesz, nawet w przypadku podobnych środowisk, jak patrze na buildera , to nic nie kumam, przynajmniej jeżeli chodzi o instrukcjie obiektowe :)
_Robo_ [ Generaďż˝ ]
ad 5) Kuba tez sie konczy na "a" :)
Swidrygajłow [ ]
Kastore:
zmien:
TStringList *Lista1=new TStringList();
na
var Lista1:TStringList;
Lista1:=TStringlList.Create;
strzałki "->" na kropki
byćmoze trzeba też w niektóych przypadkach zmienić nazwy metod
kastore [ Troll Slayer ]
Robo --> ty też masz na końcu samogłoske lol
A jak wiadomo od każdej reguły są wyjątki :) poza tym , Kuba to zdrobnienie :)
Swidrygajłow --> heh, troche sie na delphi jednak znasz :) spoko , tak jak mówie, jak znajde czas :)
Swidrygajłow [ ]
Kastore - nei znam się, tylko popatrzyłem w Twój kod
Vein [ Sannin ]
świdryjajłow do tego zamiasy := jest == :P dzieki ze mi podpowiedizales... w szkole "uczyli" nas delphi... a ja pisze mature z c++ wlasnie w c++builderze... zobaczymy :P
Swidrygajłow [ ]
nie wiem co oznacza w pascalu := ale w c++ == to operator testu równości 9czy jakoś tam) a = to operator przypisania
wydaje mi się że := to przypisanie w pascalu
kastore [ Troll Slayer ]
problem z "równasie" jest wrecz odwieczne, pisze w dwóch językach i zawsze gdzieś musze sie machnąć jak pisze dużo kodu w obydwu w ciągu dnia
Pascal
a:=9 , przypisanie 9 do a
a=9 , porównanie 9 z a
C
a=9 , przypisanie 9 do a
a==9 , porównanie 9 z a
mnie sie za to zdarza często coś takiego w Delphi
if a=9 then b:=5;
i tego then czasami zapominam
kastore [ Troll Slayer ]
albo w C robie
if (a=9) funckja();
i sie zastanawiam czemu dla a równego 1 też sie wykonuje