Vein [ Sannin ]
programowanie w Delphi. Proszę o pomoc z 3 zadaniami
Witam !!! jest uno piccolo problemo. Dostalem 3 zadanka do zrobienia w delphi (akurat kiedy sie przezucilem na C...) i musze to wykonać na jutrzejszy dzień
"załóż plik liczby.txt (np 11, 2, 3, 4, 7 itp) wyprować dane jako sumę 1+2+3 itd. do pliku wynik.txt"
to bylo 1 zadanko.... nie mam pojecia jak wyciagnac to z pliku a nastepnie jaka petle zorbic by przechodzic do nastepnej cyferki :/
napisz program w delphi realizujący nast. zadanie..
załóż pliki imie.txt (ala ola itd) nazwisko.txt (nowack, prus its) wyprowadź dane do pliku wynik.txt (ala nowack, ola prus itd) sumując wiesrsze z plików imie.txt i nazwisko.txt "
to robilem to 1.5 roku temu nie pamietam...
Napisz program wczytujący w polu tekstowym trzy wielkości a, b c i wyprowadzający tekt do obiektu typu tlabel jako wynik zapisanego działania a+b+c oraz a-b-c
z tym sobie porade, wezme petelke coby odliczala od 3 do 0 i pobierala dane a przy okazji clearowala wartości... no myslalem ze wyjdzie ale jest problem, wychodzi dziwny wynik, oto kod:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:integer;
ab,ac:string;
begin
licznik:=licznik-1;
if licznik=2 then
begin
a:=strtoint(edit1.Text);
end;
if licznik=1 then
begin
b:=strtoint(edit1.Text);
end;
if licznik=0 then
begin
c:=strtoint(edit1.Text);
d:=a+b+c;
e:=a-b-c;
ab:=inttostr(d);
ac:=inttostr(e);
Label1.Caption:='suma '+ab+' roznica '+ac;
end;
end;
Zgóry dzięki zap omoc !!
Z GÓRY DZIĘKUJE ZA POMOC !!
Vein [ Sannin ]
Ludzie blagam o pomoc !!! ja naprawde tego potrzebuje na jutro !!
Vein [ Sannin ]
naprawde nie moze mi nikt pomoc ? ehh...
Vein [ Sannin ]
no tak.. zablokowali mi watek na forum o programowaniu bo prosilem o pomoc, SUPER :/ ehhh wiec zdaje sie na wasza łaske i niełaske...
Vein [ Sannin ]
ehh kolejny up... blagam o pomoc...