pascal Napisano Marzec 9, 2015 Zgłoś Share Napisano Marzec 9, 2015 Napisz program, który dla zadanej liczby wypisze jej wartość bezwzględną. Wejście Na wejściu znajduje się jedna liczba całkowita x (-100<=x<=100). Wyjście Na wyjściu powinna znajdować się jedna liczba całkowita oznaczająca wartość bezwzględną z x. program warbez; var T: array[-100..100] of longint; x,n: longint; begin begin readln (x); for x:=1 to 201 do read (T[x]); n:=abs (T[x]); end; writeln (n); end. Prosze o sprawdzenie, wskazanie badz nakierowanie na blad . Link do komentarza Udostępnij na innych stronach More sharing options...
5corpio Napisano Marzec 9, 2015 Zgłoś Share Napisano Marzec 9, 2015 Skoro ma być tylko dla 1 liczby wprowadzonej przez użytkownika to po co ci pętla przez 200 elementów ? Na wejściu znajduje się jedna liczba całkowita x A ty sobie robisz tablicę 200 elementów nie wiedzieć po co potem lecisz w pętli i zczytujesz tyle wartości. Nie pamiętam w ogóle czy archaiczny pascal na to pozwalał co ty robisz? var T: array[-100..100] of longint; Czyli definiowanie tablicy od elementów ujemnych? Z tego co pamiętam to chyba delphi tylko pozwalało na dowolne zakresy ale mogę się mylić. Co nie zmienia faktu, że chyba kompletnie nie ogarniasz nic a program to ~10linijek. Ot taka mini-strona moja po godzinach http://www.wnetrzekuchni.pl Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.