Punkty Kratowe - Informatyka (R)

Sojusz Fallen
Fallen

FAQ

Szukaj

Użytkownicy

Grupy

Galerie

Rejestracja

Profil

Zaloguj się, by sprawdzić wiadomości

Zaloguj

Punkty Kratowe - Informatyka (R)

Forum Sojusz Fallen Strona Główna -> Ściągi, Zadania itp. / PSiO / TP

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Ricko
Brain
<FONT COLOR=DAA520>Brain</FONT>

Dołączył: 07 Sie 2006
Posty: 3255
Przeczytał: 0 tematów

Pomógł: 5 razy
Ostrzeżeń: 0/5
Skąd: ..::Zabrze::..

Wysłany: Nie 12:30, 08 Maj 2011 Temat postu: Punkty Kratowe - Informatyka (R)

Punkty Kratowe

Źródło: Praca na informatyce rozszerzonej

Cytat:

program kratki;

uses crt;

var
x,y,n:integer;
r:real;

begin
clrscr;
writeln('Podaj dlugosc promienia');
readln(r);

n:=0;

for x:=1 to trunc(r) do
begin
for y:=0 to trunc(r) do
begin
if ((x*x)+(y*y)) <= (r*r) then
n:=n+1;
end;

end;

n:=4*n+1;

writeln('Liczba punktow kratowych wynosi ', n);
readln;
end.

Post został pochwalony 0 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum Sojusz Fallen Strona Główna -> Ściągi, Zadania itp. / PSiO / TP	Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

Skocz do:

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

Regulamin