| Zeige Beiträge 1 bis 15 von 27 Treffern |
Seiten (2): [1] 2 nächste » |
 Thema: Odd Funktion |
|
|
Hallo,
ich habe eine Frage zur odd-Funktion in Pascal, bzw. zu einem Programmabschnitt:
| code: |
1:
2:
3:
4:
5:
6:
7:
|
gefunden := false;
if odd (EinZahl) then
d := 2
else
d := 1;
|
|
wobei "gefunden" eine boolean Variable und "EinZahl" eine positive natürliche Zahl ist.
Was genau bedeuted dieser Abschnitt übersetzt?
|
|
| Thema: Merge - Programm Pascal |
|
|
Hi,
habe einen neuen Abschnitt zwischen { Verschmelzungsprozess beginnen} und Verschmelzungsprozess beenden} geschrieben:
| code: |
1:
2:
3:
4:
5:
6:
|
begin
k := 1;
ErgebnisFeld[k]:= Feld1[i] and Feld2[j]
end;
|
|
Frage: Warum gibt das Ergebnisfeld zur 13 Nullen aus?
|
|
| Thema: Merge - Programm Pascal |
|
|
Hallo, ich soll ein Pascal-Programm schreiben, dass 2 sortierte Felder zu einem Ergebnisfeld verschmilzt. (siehe Anhang)
Ich poste hier mal meinen Ansatz, vllt kann mir jemand behilflich sein. Mein eigener Code steht zwischen den Kommentaren {Verschmelzungsprozess beginnen} und {Verschmelzungsprozess beenden}
Danke schonmal im voraus 
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
|
program merge (input, output);
const
FELDLAENGE1 = 5;
FELDLAENGE2 = 8;
ERGEBNISFELDLAENGE = 13; { FELDLAENGE1 + FELDLAENGE2 }
type
tFeld1 = array [1..FELDLAENGE1] of integer;
tFeld2 = array [1..FELDLAENGE2] of integer;
tErgebnisFeld = array [1..ERGEBNISFELDLAENGE] of integer;
var
Feld1 : tFeld1;
Feld2 : tFeld2;
ErgebnisFeld : tErgebnisFeld;
i : integer;
j : integer;
k : integer;
begin
{ sortierte Felder einlesen }
writeln ('Bitte', FELDLAENGE1:2, ' Werte des ersten Feldes ',
'sortiert eingeben!');
for i := 1 to FELDLAENGE1 do
readln (Feld1[i]);
writeln ('Bitte', FELDLAENGE2:2, ' Werte des zweiten Feldes ',
'sortiert eingeben!');
for j := 1 to FELDLAENGE2 do
readln (Feld2[j]);
{ Verschmelzungsprozess beginnen }
begin
k := 0;
ErgebnisFeld[k]:= Feld1[i] and Feld2[j]
end;
for k := 1 to ERGEBNISFELDLAENGE do
readln(ErgebnisFeld[k]);
for k := 1 to ERGEBNISFELDLAENGE do
{ Verschmelzungsprozess beenden }
writeln ('Das Ergebnisfeld ist:', ErgebnisFeld[k]);
for k := 1 to ERGEBNISFELDLAENGE do
write (ErgebnisFeld[k], ' ');
writeln
end.
|
|
|
|
| Thema: Binäres Suchen |
|
|
Hallo zusammen 
Ich habe folgende Aufgabe über binäres Suchen im Anhang gepostet. Dazu habe ich schonmal ein Grundprogramm (Pascal) geschrieben und wollte auf diesem Weg einmal anfragen, ob das Programm soweit ok ist oder ob ihr Verbesserungsvorschläge habt. (Bin ein Programmier-Neuling)
Danke schonmal!
Ich poste hier einmal mein Programm
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
|
program binSuche (input, output);
const
FELDGROESSE = 10;
type
tIndex = 1..FELDGROESSE;
tFeld = array [tIndex] of integer;
var
i : tIndex;
unten,
oben,
Mitte : integer;
Feld : tFeld;
Suchwert : integer;
gefunden : boolean;
begin
writeln ('Bitte das Feld eingeben:');
for i := 1 to FELDGROESSE do
readln (Feld[i]);
begin
write ('Bitte Suchwert eingeben: ');
readln (Suchwert);
end;
for i := 1 to FELDGROESSE do
begin
{ Aufgabenstück einsetzen ab hier }
{ Aufgabenstück einsetzen bis hier }
end;
writeln (gefunden);
end.
|
|
|
|
| Thema: Matrix-Programm |
|
|
Passt, danke für die gute Hilfe
Habe noch mehr Aufgaben, bei denen ich garantiert Hilfestellung brauche 
|
|
| Thema: Matrix-Programm |
|
|
Ok, ich als absoluter Programmier-Anfänger habe natürlich die Ausgabe vergessen 
Ich muss nochmal testen
|
|
| Thema: Matrix-Programm |
|
|
Oh okay Danke 
Jetzt kompiliert es, aber irgendwie transponiert keines der angebotenen Programmstücke die Matrix oder?
|
|
| Thema: Matrix-Programm |
|
|
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
|
program Aufgabe6 (input, output);
const
GROESSE = 5;
type
tMatrix = array [1..GROESSE, 1..GROESSE] of integer;
var
A : tMatrix;
tauschpuffer,
i,
j : integer;
begin
for i := 1 to GROESSE do
for j := 1 to GROESSE do
readln (A[i,j]);
{ Ausgabe der 5x5 Matrix }
for i := 1 to GROESSE do
begin
for j := 1 to GROESSE do
write (A[i, j]:3);
writeln;
{ Programmstück aus Aufgabe6 }
{hier habe ich die Programmstücke a-e eingefügt }
{ Programmstück aus Aufgabe6 }
end;
end. |
|
ist es so ok? Soll ich auch die Lösungen so angeben? Also die Programmstücke a-e ?
|
|
| Thema: Matrix-Programm |
|
|
Hallo,
danke. Ich weiß nicht genau, was du meinst, aber ich schicke dir mein Programm im Anhang.
Danke.
|
|
| Thema: Matrix-Programm |
|
|
Hallo,
also ich habe jetzt ein Programm, dass eine Matrix einliest und ausliest, wie in der Aufgabe beschrieben.
Aber wenn ich dann das entsprechende Stück a) bis e) in das Programm einfüge, erscheint folgende Fehlermeldung:
Matrix2.pas(31,9) Error: Illegal assignment to for-loop variable "i"
|
|
| Thema: Matrix-Programm |
|
|
Hallo,
also ich habe mal versucht eine Matrix einzulesen und ausgeben zu lassen, allerdings weiß ich nicht, warum in die letzte Spalte eine Nullspalte ist?
Muss ich die Variable B irgendwie initialisieren?
Danke
Gruß
BB
|
|
| Thema: Matrix-Programm |
|
|
Hallo zusammen, ich soll ein Pascal-Programm schreiben, dass eine Matrix transponiert. Ich habe 5 Auswahl-Möglichkeiten, und eine davon führt das Programm richtig aus.
Frage: WIe schaffe ich es überhaupt einmal, dass der Computer die Matrix einliest und ausgibt? Also ohne transponieren?
DIe Aufgabe ist im Anhang zu sehen.
Wäre über jede Hilfe froh
Gruß
BB
|
|
|
| Zeige Beiträge 1 bis 15 von 27 Treffern |
Seiten (2): [1] 2 nächste » |
|
|
