 |
www.infocos.fora.pl
Forum gdyńskiej grupy informatycznej Cosinus - zapraszamy też na www.niebieski1.webpark.pl
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Yui
Administrator
Dołączył: 29 Wrz 2007
Posty: 45
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Gdynia Witomino
|
 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
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
 |
|
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Ic
Dołączył: 06 Paź 2007
Posty: 11
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Sob 23:36, 06 Paź 2007 Temat postu: |
|
|
taaaa dzieki za takie smacznego ;p
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Yui
Administrator
Dołączył: 29 Wrz 2007
Posty: 45
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Gdynia Witomino
|
| Wysłany: Nie 07:13, 07 Paź 2007 Temat postu: |
|
|
Coś się nie podoba?
nie chcesz deserku? 
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Ic
Dołączył: 06 Paź 2007
Posty: 11
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Nie 13:16, 07 Paź 2007 Temat postu: |
|
|
a co na deser ;D
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Yui
Administrator
Dołączył: 29 Wrz 2007
Posty: 45
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Gdynia Witomino
|
| 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
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
informatrix_dumbhead
Hubert
Dołączył: 30 Wrz 2007
Posty: 4
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Rumia
|
| 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) 
Post został pochwalony 0 razy
Ostatnio zmieniony przez informatrix_dumbhead dnia Sob 20:11, 20 Paź 2007, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Yui
Administrator
Dołączył: 29 Wrz 2007
Posty: 45
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Gdynia Witomino
|
| Wysłany: Sob 20:10, 20 Paź 2007 Temat postu: |
|
|
To może ktoś inny? Nie pozwólcie mi nabijać postów!
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Ic
Dołączył: 06 Paź 2007
Posty: 11
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| 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...
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Yui
Administrator
Dołączył: 29 Wrz 2007
Posty: 45
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Gdynia Witomino
|
| Wysłany: Pią 08:04, 26 Paź 2007 Temat postu: |
|
|
Jak będę miała chwile dziś po szkole to spróbuje zamieścić....
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
|
|
Możesz pisać nowe tematy
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
