#naukaprogramowania #nieprogramowanie #pascal ( ͡° ͜ʖ ͡°)

Dzień dobry Mircy i Mirabelki, mam nadzieję że pomożecie nołnejmowej pomarańczce. Otóż mam na zaliczenie przedmiotu na studbaza napisać projekt w Pascalu (środowisko Lazarus) o następującej treści zadania:


I tu następuje problem, w tym linku przesłałem mój początkowy kod. Proszę mi powiedzieć czemu wykonuje się w nieskończoność pomimo tego że w pliku wejściowym są tylko 3 linijki tekstu?
Siema pomoże ktoś z programem na informatykę? Mam napisać do znajdowania maksimum z n liczb i zdefiniować funkcję MaxN ( ͡° ͜ʖ ͡°) Jak na razie mam takie coś


uses crt;


n,i,liczba,max:integer;


begin


writeln('podaj dlugosc ciagu n=');


readln(n);


writeln('podaj',n,'liczb');


read(max);


for i:=2 to n do


begin


read('liczba');


if max!
end;


writeln(maksymalny element wynosi', max)


end.


Jak by się znalazł jakiś dobry mireczek który by mi pomógł byłbym wdzięczny
Blaise Pascal - Myśli, 1670

Kiedy zważam krótkie trwanie mego życia, wchłonięte w wieczność będącą przed nim i po nim, kiedy zważam małą przestrzeń, którą zajmuję, a nawet którą widzę, utopioną w nieskończonym ogromie przestrzeni, których nie znam i które mnie nie znają, przerażam się i dziwię, iż znajduję się raczej tu niż tam, nie ma bowiem racji, dlaczego raczej tu niż tam, dlaczego raczej teraz niż wtedy. Kto mnie tu postawił?
@singollo: Ja się w kucbazie uczyłem. Dlatego, że mieliśmy spoko nauczyciela informatyki, który nauczył nas takich fajnych bajerków jak Pascal i HTML. W zasadzie to programowaliśmy stronki w notatniku, a klasa z rozszerzonym angielskim, nie informatyczna. Ogólnie ogromny szacun dla pana Tomka.
Zakład Pascala - chyba jedna z sensowniejszych rzeczy w historii filozofii.

#pasta z wikiquote.

tl;dr


„Bóg jest, albo go nie ma.“ Ale na którą stronę się przechylimy? Rozum nie może tu nic określić: nieskończony chaos nas oddziela. Na krańcu tego nieskończonego oddalenia rozgrywa się partja, w której wypadnie cetno czy licho. Na co stawiacie? Wedle rozumu, nie możecie ani na to, ani na to; wedle rozumu nie możecie bronić żadnego z dwu.
@Paczek_w_masle: ostatnio się zdziwilem bo dowiedziałem się że osoba studiująca ochronę środowiska ma zajęcia z programowania(!) i obsługi AutoCAD'a. Dziwne ale może się to przyda tej osobie kiedys
@layne90: Założę się, że chodzi o normalne wyświetlenie zawartości stosu. Jeśli używasz do tego tablicy to możesz ewentualnie wyświetlić całą tę tablicę, ale jeśli piszesz dynamiczną strukturę to wyświetlanie pamięci nie ma za bardzo sensu.

Tak, w 2014 roku też jest pamięć i warto wiedzieć jak działają programy na poziomie niższym niż JavaScript i Python :-).
#programowanie ##!$%@? #pascal

procedure TForm1.Edit1Change(Sender: TObject);

begin

if Edit1.text<>'' then

begin

try a:= StrToInt(Edit1.text);

except

showmessage ('Proszę podać liczbę naturalną');

end;

end;

end;

Może mi ktoś #!$%@? powiedzieć czemu do #!$%@? nędzy ta obsługa wyjątków nie działa? Bo #!$%@?ę się z tym gównem już nie wiem ile i nie mogę zmusić tego #!$%@?ństwa do niewysypywania się gdy mu podaję literę zamiast liczby.
Ludzie, pomocy. Mam kod w Pascalu i muszę zrobić żeby działał (#rozowypasek ma zaliczenie, po kij im takie coś na Biotechnologii? No ale w końcu polibuda to robią dziwne rzeczy).

Rozumiem, że trzeba to w czymś skompilować ale nie wiem w jaki sposób mogę wrzucić ten kod w tę konsolę bo nie da się wklejać. Nawet gdybym przepisał to i tak nie wiem co z tym zrobić.

program trojkat;

var

a,b,c,p,s:real;

begin
#programowanie #pascal

Mirki muszę uporać się z pascalem. Zapisuję listę do pliku binarnego, prosty kodzik:

while glowa <> nil do

begin

write(plik, glowa^);

glowa := glowa^.nast;

end;

Ale czy ma ktoś jakiś pomysł jak go fajnie odczytać? Internety trochę milczą