SHARE
TWEET

Untitled

a guest Aug 7th, 2019 141 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 100 REM *** ZAPIS DANYCH ***
  2. 105 :
  3. 110 INPUT "DLA ILU DNI ZADAJESZ DANE";KP
  4. 115 DIM TT(KP),TD(KP),Q1(KP/10+1),Q2(KP/10+1),QT(KP/10+1)
  5. 120 INPUT "JAK SIE MA NAZYWAC ZBOIR Z DANYMI";N$
  6. 125 OPEN 2,8,2,N$+",S,W": OPEN 15,8,15
  7. 130 FOR I=1 TO KP
  8. 135 PRINT "DZIEN";I;"TEMPERATURA I OPADY"
  9. 140 INPUT TT(I),TD(I)
  10. 145 NEXT
  11. 150 PRINT "TERAZ DANE FENOLOGICZNE W DEKADACH"
  12. 155 FOR I=1 TO KP/10+1
  13. 160 PRINT "DEKADA";I;" Q1,Q2.QT"
  14. 165 INPUT Q1(I),Q2(I),QT(I)
  15. 170 NEXT
  16. 175 INPUT "CZY WSZYSTKO W PORZADKU";A$
  17. 180 PRINT#2,KP
  18. 185 IF A$="NIE" THEN 130
  19. 190 FOR I=1 TO KP
  20. 195 PRINT#2,TT(I);Z$;TD(I)
  21. 200 GOSUB 310
  22. 205 NEXT
  23. 210 FOR I=1 TO KP/10+1
  24. 215 PRINT#2,Q1(I);Z$;Q2(I);Z$;QR(I)
  25. 220 GOSUB 310
  26. 225 NEXT
  27. 230 CLOSE 2:CLOSE 15
  28. 235 INPUT "CZY CHCESZ PODOBNY WYDRUK DANYCH";A$
  29. 240 IF A$="NIE" THEN STOP
  30. 245 OPEN 4,4 : CMD 4
  31. 250 PRINT "ZAWARTOSC ZBIORU ";N$;" POGODA"
  32. 255 FOR I=1 TP KP
  33. 260 PRINT I,TT(I),TD(I)
  34. 265 NEXT
  35. 270 IF I=1 THEN PRINT Q1(1),Q2(I),QT(I);
  36. 275 PRINT "ZAWARTOSC ZBIORU ";N$;" FENOLOGIA"
  37. 280 FOR I=1 TO KP/10+1
  38. 285 PRINT Q1(I),Q2(I),QT(I)
  39. 290 NEXT
  40. 295 PRINT#4
  41. 300 CLOSE 4
  42. 305 END
  43. 310 INPUT#15,EN,EM$,ET,ES
  44. 315 IF EN>21 THEN PRINT "BLAD ZAPISU NA DYSKU";EN,EM$,ET:STOP
  45. 320 RETURN
  46. READY
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top