Wisniowa 56

sim

12-12-07
Z podanej funkcji kwadratowej - a,b,c ma wyliczyc
-Delta
-Pierwiastek z delty
-Ilosc miejsc zerowych
-Wartosci miejsc zerowych

program funkcja_kwadratowa;
uses crt;
var
a,b,c,delta,x1,x2,x3,pd,bk,d : real;
begin
clrscr;
writeln('Wprowadz zmienna a ');
readln(a);
writeln('Wprowadz zmienna b ');
readln(b);
writeln('Wprowadz zmienna c ');
readln(c);
writeln('Wprowadzone przez Ciebie zmienne to: ');
writeln('a: ',a:2:2);
writeln('b: ',b:2:2);
writeln('c: ',c:2:2);
bk:= sqr(b);
delta:= bk-(4*a*c);

if(delta<0)
then
writeln('Funkcja nie posiada miejsca zerowego')
else

pd:= sqrt(delta);
d:= b*(-1);
x1:= (d-pd)/(2*a);
x2:= (d-pd)/(2*a);
x3:= d/2*a;

if(delta>0)
then
writeln('Pierwsze miejsce zerowe to: ',x1:2:2,' Drugie miejsce zerowe to: ',x2:2:2)
else
if(delta=0)
then
writeln('Miejscem zerowym tej funkcji jest: ',x3:2:2);

readln;
end.

masakra ten program ;x

sim

11-01-08
-Rownanie kawadratowe z pentla.
-Powtarzaj program poki nie wpiszesz a = 0

Gotowy program:
[link widoczny dla zalogowanych]

sim

11-01-08
-Program dodajacy 1 liczbe do drugiej liczby.
-Program sie zapetla do czasu wpisania 0.
[code]
program petla;
uses
crt;
var
a,b : real;
begin
repeat
clrscr;
writeln(' Wprowadz zmienna a');
readln(a);
uf(a<>0)
then
b:= a+b;
writeln('Dodane liczby to: ',b:2:2);
readln;
until (a=0);
end.

[link widoczny dla zalogowanych]

[link widoczny dla zalogowanych]

Slashh

rysiu liczymy na ciebie!!

sim

30-01-08

program gwiaztory;
uses crt;
var i,n:byte;
procedure gwiaztki(N:byte);
var i:byte;

begin

for i:=1 to N do write('*'); writeln;
end;
begin

write('Podai bog trujkonta '); readln(N);
if (n<1) and (n>24) then write('nje ma trujkontka') else begin
for i:=1 to n do gwiaztki(i); end;

readln;
{ale i tak temu glupiemu pascalowi cos nie pasuje ;x}
end.

sim

Witam.
Select; - Pozwala uzyskac informacje z bazy.
Create; - Tworzy tabele.
Update; - Aktualizacja
Insert; - Wstawianie danych.
Delete; - Usuwanie danych.
Drop; - Usuwamy tylko tresc.
From; - zzZZzzZzzzz
Where; - Gdzie.
Order by; - wedlug
Inner join; - laczy dane z dwoch tabeli wspolnym polem tego samego typu.
Values; - Wartosci.
Desc; - Malejaca.
Add; - Dodac
And; - i
Or; - lub
Varchar; - Tekst
Float; - rzeczywiste
int; - calkowite

* - bierzemy pod uwage wszystkie kolumny z tabeli.

Przyklady:

select * from Pracownicy where Pensja > 2000 Order By Staz Desc;

c)
INSERT INTO pracodawcy (imie,nazwisko,pensja,staz)
Values ('Jan','Kowalski',5500,2);

d)
UPDATE Pracownicy SET Pensja=Pensa*1.1 Where Staz >2;

e)
DELETE FROM Pracownicy WHERE imie='Jan', AND nazwisko='Kowalski';

f)
DROP TABLE Pracownicy;

sim

2 Lat
Tytul, ISBN
wydawnictwo,
rok wydania
dla ksiazek
przez PWN lub WSIP
po lub w roku 1995
Uporzadkowane alfabetycznie wg tytulow.