Apteki całodobowe

[Gość: klient]

apteka na PLACU DWORCOWYM JEST SPOKO ZAWALISTA,JAK TAM KIEDYS BYŁEM,TO MI
BABKA DAŁA WODE DO POPICIA TABLETKI,A I PODOBNO TAM MOZNA KUPIC LEKI ZA 1
GROSZ!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!! no i tam sa krzesełka i mozna usiasc

[Gość: Magda]

Teraz w większości są leki za grosz, stołeczek i dystrybutor z wodą

[Gość: yo]

tu bedzie temat:) o 15 30

Andrzej, w tobie ich nadzieja!!!

[Gość: stefan]

[Gość: a]

[Gość: b]

z

[Gość: xxx]

zsA

[Gość: mariusz]

w kazdej linii pliku a.txt podana jest podstawa i po przecinku wysokosc
trojkata.Napisac aplikacje w ktorej po kliknieciu przecisku uruchom na
podstawie danych zawartych w pliku a.txt obliczane sa pola trojkatow,wartosc
tych pol mniejszych od wartosci wpisanej w pole edit1 zapisywane sa do pola
memo2.




a.txt
2,5
1,6
4,4
1,4
3,1

[Gość: aa]

var a1:textfile;
wys,pod:integer;
wiersz:string;
pole:real;
begin
assignfile(a1,'a.txt');
reset(a1);
while not eof(a1) do begin
readln(a1,wiersz);
pod:=strtoint(wiersz[1]);
wys:=strtoint(wiersz[3]);
pole:=(wys*pod)/2;
if pole<strtoint(edit1.text) then
memo1.lines.add(floattostr(pole));
end;
end;

[Gość: aa]

coś czuje, że gość będzie sie rzucał,bo nie użyłem tu ani wektorów ani recordów.

[Gość: mar]

no wlasnie , nie dzila dokladnie jak powinno

[Gość: aa]

i jak?

skurczybyki wszystkie zdali

[roland1983]