| Autor |
Wiadomość |
| Yui |
 Wysłany: Pią 08:04, 26 Paź 2007 Temat postu: |
|
| Jak będę miała chwile dziś po szkole to spróbuje zamieścić.... |
|
 |
| Ic |
| Wysłany: Czw 23:24, 25 Paź 2007 Temat postu: |
|
| ja bym cie z checia wyreczył w tym aczkolwiek moje podejscie do zapisywania tego co jest na zajeciach jest lekko mowiac olewajace i boje sie iz nie mam zapisane tresci tych zadan... |
|
|
| Yui |
| Wysłany: Sob 20:10, 20 Paź 2007 Temat postu: |
|
To może ktoś inny?  Nie pozwólcie mi nabijać postów! |
|
|
| informatrix_dumbhead |
| Wysłany: Pią 17:07, 19 Paź 2007 Temat postu: |
|
Przepraszam- mam takie pytanie- czy mógłby ktoś zamieścić 'treść' tych zadań, a przynajmniej tych ostatnich (tzn. m.in. zad.4-7)   |
|
|
| Yui |
| Wysłany: Nie 13:54, 07 Paź 2007 Temat postu: |
|
Oj Arku, Arku, jesteś nie grzecznym chłopcem. Do szkoły nie chodzisz, nic tylko byś się lenił
Do kąta marsz i masz zakaz czytania
A na serio to co do sensowności poniższych nic nie mogą zagwarantować, chyba działały, ale Reimana nawet sprawdzić się nie dało...
Zmienne bywają dość bezsensowne, celem pokazywania tych programów komukolwiek polecam pozmieniać chociaż nazwę programu ;P
Zadanie 5
Newton-Raphson
| Kod: | PROGRAM NEWTON;
var x:real;
procedure oblicz(x:real);
var a,d:real;
begin
d:=1e-6;
a:=x;
while ABS(a-x/a) >d do
a:=(a+x/a)/2;
writeln('Pierwiastkiem podanej liczby jest ',a);
end;
BEGIN
Writeln ('Podaj liczb© jakiej chcesz pierwiastek chcesz obliczyc');
Readln(x);
oblicz(x);
readln;
END.
|
Zadanie 6
Całka Riemana
| Kod: | PROGRAM Riman;
var a,b: real; n:integer;
function f(x:real):real;
begin
f:=x*x;
end;
procedure rieman(a,b:real; n:integer);
var k,d,p,x:real;
begin
d:=(b-a)/n; k:=0; p:=0;
While k<>n do
begin
x:=(a+d)*(k+d/2);
p:=d*abs(f(x))+p;
k:=k+1;
end;
Writeln ('pole wynosi ',p);
end;
BEGIN
Writeln ('Podaj punkty a i b kt˘re b©dĄ bocznymi granicami pola');
readln(a,b);
Writeln ('podaj z jakĄ dokˆadno˜ciĄ chcesz obliczy† pole');
readln(n);
rieman(a,b,n);
readln;
END.
|
Zadanie 7
Metoda bisekcji
| Kod: | PROGRAM PASKUDZTWO;
var a,b: real; dokl:real ;
function f(x:real):real;
begin
f:=x+1;
end;
procedure bisekcja(a,b,dokl:real);
var d:real;
begin
if f(a)*f(b)>0 then writeln ('mzf w podanym przedziale nie wystepuje');
while f(a)*f(b)<0 do begin
if f(a)=0 then begin writeln ('mzf to ',a);break;end;
if f(b)=0 then begin writeln ('mzf to ',b);break;end;
if b-a < dokl then begin
d:=(a+b)/2;
writeln ('mzf ', d:2:2); break; end
else begin
d:=(a+b)/2;
writeln('cosik');
if f(a)*f(d)<0 then
b:=d
else
a:=d
end;
end;
end;
BEGIN
Writeln ('Podaj punkty a i b kt˘re b©dĄ bocznymi granicami pola');
readln(a,b);
{Writeln ('podaj z jakĄ dokˆadno˜ciĄ chcesz obliczy† pole');}
dokl:=1e-6;
bisekcja(a,b,dokl);
readln;
END.
|
Edit: A! i smacznego ;D |
|
|
| Ic |
| Wysłany: Nie 13:16, 07 Paź 2007 Temat postu: |
|
| a co na deser ;D |
|
|
| Yui |
| Wysłany: Nie 07:13, 07 Paź 2007 Temat postu: |
|
Coś się nie podoba?
nie chcesz deserku? |
|
|
| Ic |
| Wysłany: Sob 23:36, 06 Paź 2007 Temat postu: |
|
| taaaa dzieki za takie smacznego ;p |
|
|
| Yui |
| Wysłany: Sob 13:30, 06 Paź 2007 Temat postu: Zadania z 6.X |
|
Zadanie 1
Równania liniowe
wersja procedurkowa:
| Kod: | program r_liniowe;
var a,b: integer;
procedure liniowe (a,b:integer);
var x :real;
begin
x:= (-b)/a;
writeln (x)
end;
BEGIN
writeln ('Podaj wsp r˘wnania liniowego o postaci ax+b=0');
readln (a,b);
liniowe (a,b);
readln;
END.
|
wersja funk
| Kod: | program r_liniowe;
var a,b: integer;
function liniowe (a,b:integer):real;
var x :real;
begin
x:= (-b)/a;
writeln (x)
end;
BEGIN
writeln ('Podaj wsp r˘wnania liniowego o postaci ax+b=0');
readln (a,b);
liniowe (a,b);
readln;
END.
|
Zadanie 2
Największy Wspólny Dzielnik
| Kod: | program nwd1;
var a,b:integer;
function nwd(a,b:integer):real;
begin
while a<>b do begin
if a>b then
a:=a-b
else
b:=b-a
end;
nwd:=a;
end;
begin
writeln ('podaj dwie liczby');
readln (a,b);
nwd (a,b);
writeln ('Najwi©kszym wsp˘lnym dzielnikiem jest',' ',nwd(a,b):2:2);
readln;
end. |
Wersja uproszczona
| Kod: | program nwd2;
var a,b:integer;
function nwd(a,b:integer):real;
begin
while a>0 do begin
a:=a mod b;
b:=b-a;
end;
nwd:=b;
end;
begin
writeln ('podaj dwie liczby');
readln (a,b);
writeln ('Najwi©kszym wsp˘lnym dzielnikiem jest',' ',nwd(a,b):2:2);
readln;
end.
|
Zadanie 3 MIN-MAX
Wyznaczyć z k-liczb najmniejszą (na tym samym schemacie -lekko zmodyfikowanym można wyznaczyć największą z k-liczb)
| Kod: | program minimalna;
var a,k:integer;
procedure mini(a,k:integer);
var min:integer;
begin
min:=a;
while k<>1 do begin
writeln ('Podaj kolejna liczbe');
readln (a);
k:=k-1;
if a<min then min:=a;
end;
Writeln('Najmniejsza wartoscia jest', min);
end;
begin
writeln ('Podaj ile liczb chcesz porownac');
readln (k);
writeln ('podaj jadna z liczb');
readln (a);
mini(a,k);
readln;
end. |
Zadanie 4
Sprawdza czy podana liczba jest liczbą pierwszą czy złożoną.
| Kod: | program pierwszaki;
var n:integer;
procedure spr(n:integer);
var i:integer;
begin
i:=2;
while (i*i<=n) and (n mod i<>0) do i:=i+1;
if i*i>n then
Writeln ('Liczba jest liczba pierwsza')
else
writeln ('Liczba jest liczba zlozona');
end;
BEGIN
writeln ('Wpisz liczb©, by sprawdzic czy jest liczba pierwsza czy zlozona');
readln(n);
spr(n);
readln;
END. |
Smacznego! ;D |
|
|