Turbo pascal

w.ch [ Chor��y ]

ty to wez napisz chociaz troche poczatku
jestem na egzaminie i tylko forum jest moja nadzieja....

w.ch [ Chor��y ]

i jak mozesz to wyslij te programy co pisales

29.01.2006

12:47

[5]

@$D@F [ Generaďż˝ ]

mysle

w.ch [ Chor��y ]

@$D@F wes ratuj bo poprawke bede mial i jak nie zdam to w kamasze mnie wezma...............
prosze

w.ch [ Chor��y ]

@$D@F to jak pomozesz????

@$D@F [ Generaďż˝ ]

program tablice;
uses crt;
var i: integer;
suma: real;
tab:array[1..15] of real;
begin
clrscr;

for i:=1 to 15 do
readln(tab);

for i:=1 to 15 do
begin
if tab>3 then suma:=suma+tab
end;


writeln ('------');
repeat until keypressed;
end.


bez zapisywania do pliku, jakis blad jest z endem na koncu nie wiem dlaczego

Narmo [ nikt ]

Tu jest poradnik na temat tablic (zainteresuje Cię ostatni program):
https://turbopascal.skryptoteka.pl/11.html

A tu na temat plików:

29.01.2006

13:05

[12]

Afromen [ Pretorianin ]

@$D@F -------> ale wpisywać i sumować w osobnych procedurach! IMO ma być tak:
też nie wiem jak się wypisuje do txt


```````````````````````````````````````````````````````````````````
program program1;
uses crt;
const k=15;
type tab=array[1..k] of real;
var t:tab;


procedure pobierz;
var i:integer;

begin
for i:=1 to k do readln(t[k]);
end;


function licz(t:tab) : real;
var i:integer;
s:real;
begin
s:=0;
for i:=1 to k do if t>3 then s:=s+t;
licz:=s;
end;



begin
clrscr;
pobierz;
writeln(licz(t));
repeat until keypressed;
end.

w.ch [ Chor��y ]

wielkie wam wszystkim!!! kijano nie to ze sie nie chce tylko sie tego nie czaii wogole. dziekuje

Narmo [ nikt ]

Kijano --> Ale teraz przynajmneij wiadomo, dlaczego mamy tylu bezrobotnych "informatyków" :p

Kijano [ Generaďż˝ ]

aha widze blad ma byc typ tablicowy :P oto poprawiona wersja

program cos;

const
k = 15;

type tablica=array[1..k] of real;

var
tab:tablica;
d:integer;
suma:real;
plik:text;

function sumowanie:boolean;

begin
for d:=1 to k do if(tab[d] > 3) then suma:=suma+tab[d];
assign(plik,'wynik.txt');
rewrite(plik);
write(plik,suma:0:2);
close(plik);
sumowanie:=true;
end;

procedure pobierz;
begin
for d:=1 to k do begin
write('Podaj liczbe : ');
readln(tab[d]);
end;
end;


begin
pobierz;
sumowanie;
end.

29.01.2006

13:12

[17]

@$D@F [ Generaďż˝ ]

ja mam take cos
moze i sa bledy, dawno nie pisalem :P

program tablice;
uses crt;
var t: text;
i: integer;
suma: real;
tab:array[1..15] of real;
begin
clrscr;
assign (t,'plik.txt');
rewrite (t)
for i:=1 to 15 do
readln(tab);

for i:=1 to 15 do
begin
if tab>3 then suma:=suma+tab
end;
writeln (t,suma);


repeat until keypressed;
end.

Narmo [ nikt ]

Chodzi mi o ten kawałek:
readln(tab[i]);

for i:=1 to 15 do
begin
if tab[i]>3 then suma:=suma+tab[i]
end;
writeln (t,suma);

29.01.2006

13:32

[21]

@$D@F [ Generaďż˝ ]

co z nim ?

w.ch [ Chor��y ]

dzieki wielkie
zaraz babka mi sprawdzi to napisze co i jak


ten drugi probram jest dla kumpla z grupy takze jak mozecie to bedzie naaprawde wdzieczny

29.01.2006

13:46

[23]

Narmo [ nikt ]

@$D@F --> Już nic :)
Nie zauważyłem, że nie wyłączyłeś znaczników w poście i myślałem, że brakuj tam [i] :)

w.ch [ Chor��y ]

DOSTALEM PIATECZKE PROGRAM BYL BEZ ZARZUTOW
PO RAZ
KOLEJNY
DZIEKI

POMOZCIE DLA MOJEGO KUMPLA

Napisz program, w którym zadeklarujesz; stałą m wynoszącą 12, typ tablicowy MT opisujący tablicę mogące pomieścić m liczb integer, tablicę tego typu. Następnie napisz i wywoła w programie głównym:
--Procedurę generowania liczb z przedziału <-2;100> do tablicy typu MT
--Funkcje znajdującą liczbę w tablicy typu MT

Kijano [ Generaďż˝ ]

ekhm chyba mysmy dostali 5 :)

29.01.2006

14:43

[26]

@$D@F [ Generaďż˝ ]

a ktory program ?? :)