Opole 19.01.2010
POLITECHNIKA OPOLSKA
WYDZIAŁ BUDOWNICTWA
Ćwiczenie projektowe nr 1 z
Technologii informacyjnej
Prowadzący: Wykonał:
Mgr. Inż. Juliusz Kuś Lauer Grzegorz
Rok II 2009/10
Sem. II
2.1 Zapisanie algorytmu w języku naturalnym.
1. Wpisz wymiar macierzy N,M
2. Za I podstaw jeden
3. Za J podstaw jeden
4. Wpisz wartość macierzy A
5. Za J podstaw J+1
6. Sprawdź czy J jest mniejsze od M
7. Jeśli tak to wróć do punktu 4
8. Jeśli nie to za I wstaw I+1
9. Sprawdź czy I jest mniejsze od N
10. Jeśli tak to wróć do punktu 3
11. Jeśli nie to za I wstaw jeden
12. Pomnóż pierwszy element A(I,1) z drugim A(J,2)
13. Za J wstaw dwa
14. Sprawdź czy iloczyn A(I,1)*A(J,2) jest mniejszy od iloczynu A(I,J)*A(I,J+1)
15. Jeśli tak to pomnóż A(I,J)*A(I,J+1)
16. Jeśli nie to za J wstaw J+1
17. Sprawdź czy J jest mniejsze od M
18. Jeśli tak to wróć do punktu 14
19. Jeśli nie to zapisz wynik jako W
20. Za I podstaw I+1
21. Sprawdź czy I jest mniejsze od N
22. Jeśli tak to wróć do punktu 12
23. Jeśli nie to wypisz wynik W(N,M)
2.2 Zapisanie algorytmu w postaci karty przepływu
2.3 Zapisanie algorytmu w wersji źródłowej programu użytkowego
c Projekt nr1 z cwiczen
real A(100,100),N,M,I,J,D,K,W
write(*,*)'podaj wymiar N,M'
read(*,*)N,M
Do I=1,N
Do J=1,M
write(*,*)'podaj wartość A(',I,',',J,')'
read(*,*)A(I,J)
end Do
D=A(I,1)*A(I,2)
K=A(I,J)*A(I,J+1)
Do J=2,M
if(D.lt.K)then
if(D.gt.K)then
Do J=J+1,M
read(*,*)W(N,M)
Do I=I+1,N
end
alvin888