Derbysieger
Cadet 3rd Year
- Registriert
- Nov. 2009
- Beiträge
- 54
Hi,
ich brauche dringend Hilfe!
Ich muss eine Informatik Aufgabe bis Montag abgeben.
Die Dateien sind im Anhang.
Kann mir jemand helfen?
Folgende Aufgaben:
Schreiben Sie ein Programm, das die Statistiken Minimum und Maximum jeweils für die Tiefst- und
Höchstwerte berechnet. Weiterhin soll der Tag mit der kleinsten und der mit der gr¨oßten Spanne zwischen
den Kursen ermittelt werden. Die Ergebnisse sollen nach der Berechnung in einen verständlichen Text
eingebettet auf dem Bildschirm ausgegeben werden.
1.) eine Prozedur zur Öffnung der Dateien
2.) die eingelesenen Werte sollen auf zwei Zahlen-Arrays abgelegt werden
3.) Minimum und Maximum sollen jeweils mit Funktionen berechnet werden, wobei Datenvektoren mit dem Schlüsselwort var zu übergeben sind
4.) eine Prozedur zur Berechnung der Spanne des Vektors (Differenz zwischen Höchst- und Tiefstwert)
Zu 1) habe ich einen Ansatz, jedoch wird bei der Ausgabe nur ein teil angezeigt.
Program txt_einlesen;
USES wincrt;
VAR Datei: Text;
Gelesen, Pfad: String;
PROCEDURE OpenTxtFile;
BEGIN
ClrScr;
Writeln('Welche Datei soll eingelesen werden? (Pfad)');
Readln(Pfad);
Assign(Datei, Pfad);
Reset(Datei);
REPEAT
Readln(Datei, Gelesen);
Writeln(Gelesen);
UNTIL EOF (Datei);
Close(Datei);
ReadKey;
END;
Begin
OpenTxtFile;
End.
Bei 2) habe ich überhaupt keine Ahnung, zu 3) habe ich auch einen Ansatz:
Program Minimum;
uses wincrt;
const max =100;
var a : ARRAY[1..max] OF INTEGER;
n,i,k : INTEGER;
begin
writeln('Es wird das Minimum einer Folge von n Zahlen bestimmt. ');
writeln;
writeln('Geben Sie für n die Anzahl der Zahlen an, n= ');
readln(n);
writeln('für i=1,...,',n);
writeln;
BEGIN
write('Geben Sie ',n,' Zahlen ein, a= ');
writeln;
writeln;
FOR i:=1 to n DO read(a);
writeln;
END;
k:=1;
FOR i:= 2 TO n DO
IF a < a[k] THEN k:=i;
writeln('Das Minimum ist a[',k,'] = ',a[k]);
End.
end.
ich brauche dringend Hilfe!
Ich muss eine Informatik Aufgabe bis Montag abgeben.
Die Dateien sind im Anhang.
Kann mir jemand helfen?
Folgende Aufgaben:
Schreiben Sie ein Programm, das die Statistiken Minimum und Maximum jeweils für die Tiefst- und
Höchstwerte berechnet. Weiterhin soll der Tag mit der kleinsten und der mit der gr¨oßten Spanne zwischen
den Kursen ermittelt werden. Die Ergebnisse sollen nach der Berechnung in einen verständlichen Text
eingebettet auf dem Bildschirm ausgegeben werden.
1.) eine Prozedur zur Öffnung der Dateien
2.) die eingelesenen Werte sollen auf zwei Zahlen-Arrays abgelegt werden
3.) Minimum und Maximum sollen jeweils mit Funktionen berechnet werden, wobei Datenvektoren mit dem Schlüsselwort var zu übergeben sind
4.) eine Prozedur zur Berechnung der Spanne des Vektors (Differenz zwischen Höchst- und Tiefstwert)
Zu 1) habe ich einen Ansatz, jedoch wird bei der Ausgabe nur ein teil angezeigt.
Program txt_einlesen;
USES wincrt;
VAR Datei: Text;
Gelesen, Pfad: String;
PROCEDURE OpenTxtFile;
BEGIN
ClrScr;
Writeln('Welche Datei soll eingelesen werden? (Pfad)');
Readln(Pfad);
Assign(Datei, Pfad);
Reset(Datei);
REPEAT
Readln(Datei, Gelesen);
Writeln(Gelesen);
UNTIL EOF (Datei);
Close(Datei);
ReadKey;
END;
Begin
OpenTxtFile;
End.
Bei 2) habe ich überhaupt keine Ahnung, zu 3) habe ich auch einen Ansatz:
Program Minimum;
uses wincrt;
const max =100;
var a : ARRAY[1..max] OF INTEGER;
n,i,k : INTEGER;
begin
writeln('Es wird das Minimum einer Folge von n Zahlen bestimmt. ');
writeln;
writeln('Geben Sie für n die Anzahl der Zahlen an, n= ');
readln(n);
writeln('für i=1,...,',n);
writeln;
BEGIN
write('Geben Sie ',n,' Zahlen ein, a= ');
writeln;
writeln;
FOR i:=1 to n DO read(a);
writeln;
END;
k:=1;
FOR i:= 2 TO n DO
IF a < a[k] THEN k:=i;
writeln('Das Minimum ist a[',k,'] = ',a[k]);
End.
end.
Anhänge
Zuletzt bearbeitet: