 |
www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Pon 21:18, 14 Sty 2008 Temat postu: Lista 6 - zad 2 mgr D |
|
|
| Kod: |
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
pl:text;
plik:text;
plik2:text;
i,j : integer;
czyt:array[1..10]of byte;
tab:array[1..10,1..3]of integer;
s,n:string;
begin
s:='--------------------------';
n:='--------------------------'#10#13' Wartosc Kwadrat Szescian '#10#13'--------------------------';
assignfile(plik,'zadanie2.txt');
rewrite(plik);
for i:=1 to 10 do begin
for j:=1 to 3 do begin
if j=1 then begin
tab[i,j]:=i;
write(tab[i,j]:4);
write(plik,tab[i,j]:4);
end;
if j=2 then begin
tab[i,j]:=i*i;
write(tab[i,j]:9);
write(plik,tab[i,j]:9);
end;
if j=3 then begin
tab[i,j]:=i*i*i;
write(tab[i,j]:10);
write(plik,tab[i,j]:10);
end;
end;
writeln;
write(plik,#10#13);
end;
closefile(plik);
readln;
assignfile(pl,'zadanie2.txt');
assignfile(plik2,'zadanie2_2.txt');
reset(pl);
rewrite(plik2);
writeln(plik2,n);
for i:=1 to 10 do begin
for j:=1 to 3 do begin
if j=1 then begin
read(pl,tab[i,j]);
write(plik2,tab[i,j]:5);
end;
if j=2 then begin
read(pl,tab[i,j]);
write(plik2,tab[i,j]:9);
end;
if j=3 then begin
read(pl,tab[i,j]);
write(plik2,tab[i,j]:10);
end;
end;
writeln;
write(plik2,#10#13);
end;
write(plik2,s);
closefile(pl);
closefile(plik2);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
no coz .... ale dziala 
|
|
| Powrót do góry |
|
 |
|
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
stramik
Administrator
Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów
Skąd: Grodków
|
| Wysłany: Pon 22:50, 14 Sty 2008 Temat postu: |
|
|
No wrzucilem to do kompilatora i nie za bardzo wyniki mi dalo takie jak na obrazku. W sensie plik txt nie wygladaja za ciekawie
Ostatnio zmieniony przez stramik dnia Pon 22:51, 14 Sty 2008, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
stramik
Administrator
Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów
Skąd: Grodków
|
| Wysłany: Pon 22:53, 14 Sty 2008 Temat postu: |
|
|
hehehe jednak ladnie wygladaja wyniki tylko w notatniku jest klapa. W sumie jest sposob zakrecony troche ale faktycznie dziala. Ja probowalem to na zwyklym tekscie robic. Ale mi sie wysypalo bo myslalem ze mozna zapisac plik do pliku ale tak sie chyba nie da. Napisalem do Halikowskiego i powiedzial, ze mi pomoze, ale w piatek po cwiczeniach, wiec ja odpczuszczam sobie tymczasem to zadanie.
Ostatnio zmieniony przez stramik dnia Pon 22:57, 14 Sty 2008, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
| Wysłany: Wto 18:51, 15 Sty 2008 Temat postu: |
|
|
heh no nie mowie ze specjalnie przejolem sie tym zadaniem poprostu pisze cos na poczatku i na koncu pliku  no ale fakt zobaczymy co pan H powie
no chyba ze ktos cos wyknuje do tego czasu
pozdro
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
stramik
Administrator
Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów
Skąd: Grodków
|
| Wysłany: Wto 22:27, 15 Sty 2008 Temat postu: |
|
|
|
Chodzi mi o to, ze pliki w wordpad lub wordzie wygladaja ok, a notatnik wywala mi tak jakos to nieskladnie
|
|
| Powrót do góry |
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
