zadania - METALURGIA

METALURGIA
WMN

FAQ

Szukaj

Użytkownicy

Grupy

Galerie

Rejestracja

Profil

Zaloguj się, by sprawdzić wiadomości

Zaloguj

zadania

Forum METALURGIA Strona Główna -> III rok / Semestr 5 / Metody numeryczne

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

lukasz.zielonka

Dołączył: 15 Lis 2010
Posty: 262
Przeczytał: 0 tematów

Pomógł: 3 razy
Ostrzeżeń: 0/5

Wysłany: Wto 11:50, 22 Lis 2011 Temat postu: zadania

PROGRAM ILPS IMPLICIT REAL8 (A-H), REAL8(O-Z) OPEN(UNIT=7, FILE='MEPS' ,STATUS='OLD') READ(7,) M,EPS WRITE(,) M,EPS DO 1 N=1,M AN=(1.+1./N)N IF(N.LT.2) GO TO 1 ER= AN-ANP WRITE(,) 'N= ',N,' e= ',AN c PAUSE IF(ER.LT.EPS) GO tO 2 1 APN=AN 2 WRITE(,) 'N= ' ,N,' e= ' ,AN E=0. NS=1 DO 3 N=1,M NS=NSN 3 E=E+1./NS E=E+1. WRITE(,) 'E= ',E STOP END Post został pochwalony 0 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum METALURGIA Strona Główna -> III rok / Semestr 5 / Metody numeryczne	Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

Skocz do:

Nie możesz pisać nowych tematów
Nie 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