Turbo Pascal
Ostatnio zmodyfikowano 2012-06-12 18:31
zolax Temat założony przez niniejszego użytkownika |
Turbo Pascal » 2012-06-11 16:22:05 Witam mam zadanie domowe aby wczytać z pliku imiona, a następnie oblicz jaki procent imion to imiona żeńskie. Jak zrobić żeby liczyło mi ten procent ? Program zadanie_030;
var
i, x, y: integer;
plik: text;
linia, napis: string;
tablica: array[1..20] of integer;
begin
Assign(plik, 'E:\imiona.txt');
Reset(plik);
napis := 'Marcin';
WriteLn(Length(napis));
WriteLn(Upcase(napis));
if Upcase(napis[Length(napis)]) = 'A' then
WriteLn('K')
else
WriteLn('M');
i := 0;
while(eof(plik)) = FALSE do
begin
ReadLn(plik, linia);
WriteLn(linia);
i:= i +1;
if Upcase(linia[Length(napis)]) = 'A'then
tablica[i] := y;
end;
ReadLn;
Close(plik);
end.
|
|
Vallher |
» 2012-06-11 17:30:14 Nie rozumiem po co ta tablica.
Za każdym razem jak to A bedzie na końcu zwiększaj sobie jakąś zmienną, a później podziel przez zmienną "i" w której masz liczbe wszystkich, następnie pomnóż przez 100. |
|
zolax Temat założony przez niniejszego użytkownika |
» 2012-06-11 19:20:35 Okej zrobiłem działa tylko czy da się zrobić tak żeby zwracało 75 a nie 7.500..... while(eof(plik)) = FALSE do
begin
ReadLn(plik, linia);
WriteLn(linia);
i:= i +1;
if Upcase(linia[Length(napis)]) = 'A'then
x:= x + 1;
end;
srednia := (x/i) * 100; |
|
Vallher |
» 2012-06-12 16:51:06 srednia := (x/i) * 100; zamień na x:=x*100;
srednia:=x div i;
|
|
zolax Temat założony przez niniejszego użytkownika |
» 2012-06-12 18:31:03 Już sobie poradziłem ale dzięki za pomoc wystarczyło że przy wyświetlaniu dałem to srednia:1:0) i zamieniłem instrukcje warunkową if na if not. Jeszcze raz wielkie dzięki. Temat można zamknąć. |
|
| « 1 » |