[pascal] Program obliczający ilość niedziel od wskazanej daty

[kasia12320d]

witam , mam zadanie do zrobienia:

2) Napisać program, który wczytuje z klawiatury liczbę całkowitą dn będącą numerem dnia w roku 2009. Jeśli podana liczba dn nie spełnia warunków 1<=dn<=366, program wyświetla komunikat: "Bledne dane wejsciowe" i kończy pracę. (Dla poprawnej wartości dn program oblicza ilość niedziel od początku roku do dnia dn włącznie w roku 2004 wg wzoru (dn+3)/7.)Następnie wyświetla numery dni będących niedzielami zgodnie z dwoma przykładowymi wydrukami.
Wydruki dotyczą roku 2004.

Ilosc niedziel do dnia nr 3: 0

Ilosc niedziel do dnia nr 44: 6
Numery dni bedacych niedzielami:
4 11 18 25
33 39

POMÓŻCIE...

[lilith]

ale że czego tu nie wiesz?wrzuć kod to ktoś spróbuje poprawić.

[ToServeAndProtect]

mam zadanie do zrobienia

nie odrabiamy prac domowych więc sama musisz coś napisać a my możemy co najwyżej poprawić

[kasia12320d]

nie wiem wogóle od czeggo tu zacząć

[ToServeAndProtect]

a znasz podstawy programowania ? przydałoby się zamieszczenie tutaj kody programu który napiszesz

[lilith]

nazywasz program, deklarujesz użycie klawiatury przez uses crt, deklarujesz zmienne:
dn, licznik, numerdnia: integer
niedziela: real
rozpoczynasz program beginem
dajesz warunek, ze jeśli nie prawda że 1<=dn<=366 to wyświetl "błędne dane wejściowe" i dajesz break
else od licznik = 1 do np. 400
begin
niedziela=(dn+3)/7
licznik=licznik+1
end
end
wyświetl ilość niedziel do "nrdnia" : "licznik"
pokaż wyniki
kończysz program "end."

koniec. przecież mas wszystko napisane to czego nie wiesz.

[kasia12320d]

czyli np musze napisac cos takiego:

program roku;
var
uses crt;
dn,licznik,numerdnia: integer
niedziela:real

Begin

clrscr;
writeln('program wczytuje liczbe calkowita dn');
for i:=1 to dn do
for j:=1 to dn do read(tab[i,j]);
end;
to cos takiego??

[lilith]

warunek to np. instrukcja if then else

a po elsie dałam faktycznie pętlę for

zamiast litery j to jest u mnie "licznik" i on zlicza ilość tych niedziel.

tablicy nigdzie nie zadeklarowałaś, więc nie wiem czemu ją wczytujesz.

i teraz tu widzę, że zmienna numerdnia jest niepotrzebna, bo do wyświetlenia tego numeru dnia wykorzystasz zmienną dn.a zmienna niedziela to mogłaby być tablica najlepiej, i do niej zapiszą się wszystkie numery dnia, które są niedzielą. tak będzie najlepiej, bo obecnie to się nadpisywała ciągle ta wartość. a zmienna licznik to będzie numer w tablicy tej niedzieli. no chyba że znasz sięna wskaźnikach, to możesz na nich robić zamiast na tablicach :]

początek dobry, ale to sama deklaracja ;] a potem prawie wszystko pominęłaś co ci napisałam.

[kasia12320d]

mogłabyś mi pomoc to napisac bo ja tego kompletnie nie rozumiem nie bylo mnie na zajeciach wcale i nie wiem jak to robic

[lilith]

przecież tobie pomogłam. a jeśli przez pomoc rozumiesz napisanie za ciebie programu w całości, to podchodzi to pod "odrabianie zadań domowych, czyli lenistwo", a tu nikt zadań domowych nie odrabia, i temat może wtedy trafić do kosza.
nie napiszę za ciebie programu, podałam tobie cały algorytm działania, wystarczy że użyjesz tablic, warunku id i pętli for, lub odpowiednio innych pętli czy warunków. a skoro tego nie umiesz użyć to masz zaległości z całego semestru raczej.

tu masz podstawowe konstrukcje, bo z tym też masz problem:

Kod: Zaznacz wszystko

FOR liczba:=1 TO 400 DO
BEGIN
.
.
.
.
END;

zamiast 400 możesz wpisać n, i w deklaracjach stworzyć stałą const n= 400 lub inna liczba
lub jako zmienną var n:integer; i wczytać ją z klawiatury.

Kod: Zaznacz wszystko

IF (jakiś warunek) THEN (jakieś instrukcje, gdy jest spełniony ten warunek)
ELSE (inne instrukcje gdy warunek nie jest spełniony)

definicji tablic jest pełno w necie.

a skoro nie było cię na tych zajęciach to możesz wziąć program od kolegów i niech tobie wytłumaczą, może wtedy zrozumiesz program, sama w klasie pewnie nie jesteś. a skoro koledzy nie chcą się podzielić, to pewnie jest to zadanie domowe.

[Fallen]

Podpowiem tylko tyle że Twój program potrzebuje tylko 2 zmienne, 2 instrukcje warunkowe, i jedną pętle for to do
Nie potrzebujesz żadnych tablic dla tego zadania

Co Ci się może przydać:
div - dzielenie bez reszty
mod - reszta z dzielenia
np x = a div b;

[lilith]

no tak, reszta całkowita z dzielenia musi być policzona ze zmiennej niedziela a zamiast zmiennej niedziela można po prosu użyć zmiennej dn. ale to drobne szczegóły jak się nie umie użyć czegokolwiek ;]

[Fallen]

użycie real w tym zadaniu to pomyłka
2 zmienne byte i tyle ^^

[kasia12320d]

fallen, a moglbys mi to wytlumaczyc jak to powinno wygladac?

[Fallen]

0.definiujesz zmienne na dni typu integer i iteracje typu byte.(366 nie zmiesci się w byte mój błąd
1.Wczytujesz liczbę.
2.Sprawdzasz czy jest w przedziale.
3.Wykonujesz działanie ze wzoru.
4.Sprawdzasz czy wynik większy od 0.
5.Odwracasz wzór i w iteracji obliczasz kolejne niedziele wyświetlając je zaraz po obliczeniu.

[kasia12320d]

moglbys mi napisac jak to mniej wiecej powinno wygladac, bo kolezanka wczesniej inaczej mi to tlumaczyla

Dodano Dzisiaj, 14:29:
jak sprawdzic czy liczba jest w przedziale, i jak wykonac dzialanie ze wzoru bo kompletnie nie rozumiem tego

Dodano Dzisiaj, 14:30:
jak to wogole wszystko zapisac rozumiem jak obliczyc tylko nie wiem jak to zapisac od beginu?

[lilith]

jak sprawdzic czy liczba jest w przedziale, i jak wykonac dzialanie ze wzoru bo kompletnie nie rozumiem tego

napisałam tobie że ifem to sprawdzasz , ten warunek. a samego działania ze wzoru nie wykonujesz tylko robi to za ciebie program.

[Fallen]

Wczytywanie wypisywanie danych
Działania arytmetyczne
Sprawdzanie warunków
Iteracje

Ogólnie wciągnij sobie ten tutorial cały bo widzę że strasznie nie ogarniasz

[kasia12320d]

dzieki

Dodano Dzisiaj, 15:09:
nie ogarniam tego wszystkiego ale nie bede juz was meczyc moze jakos dam rade