-
Werte vergleichen
Hallo allerseits,
wieder einmal suche ich nach einer relativ einfachen lösung:
Vorgabe: 3 Feldgruppen mit je 10 Elementen. Die F1 enthält einen numerischen Wert, F2 enthält ebenfalls einen numerischen Wert, die F3 ist zu Beginn blank. Aus F2 sollen alle Feldinhalte miteinander verglichen werden und beim kleinsten Wert ein K ins entsprechende F3 Feld geschrieben werden, sodass mit F1 (bei dem in F3 K steht) weitergearbeitet werden kann.
Wie löse ich das am Einfachsten? Stehe momentan auf der Leitung.
Danke schon mal für eure Hinweise.
LG
Franz-Georg
-
Die antwort bezieht sich auf eine ganz andere Fragestellung.
Die Frage wurde nachträglich geändert!
Moin,
die F2 ist zu beginn blank?
Also sorta auf f1 nach f3 und alle f2 deren f1 = f3,1 ist mit k versehen
oder hab ich was nicht verstanden?
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
@Robi,
nee ich glaube da liegt ein Mißverständnis vor.
F1 -> 1, 15, 2, 20, .....
F2 -> 15, 3, 6, 98,.....
F3 -> im 2. Element ein K und mit F1(2) weiterarbeiten.
So hatte ich es gemeint.
-
Diese Aufgabe habe ich nun nicht verstanden aber ich interpretiere mal:
So ist es wahrscheinlich nicht gemeint:
for x=1 to 10;
if f1(x) < f2(x);
f3(x)='K';
endif;
endfor;
Oder so?
for x=1 to 10;
for y=1 to 10;
if f1(x) < f2(y);
f3(x) = 'K';
endifM
endfor;
endfor;
-
Diese Aufgabe habe ich nun nicht verstanden
Schließe mich an
Oh, sehe gerade der original Post wurde geändert.
Nun sind es dort auch 3 FG
mit beiden Erklärungen würde ich tippen
F1 soll verarbeitet werden
- entweder nur F1(kleinster_wert_F2)
oder
- in der Reihenfolge von klein nach goss aus F2
so ungefähr?
Robi
(der geänderte Original Posts nicht mag!)
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
Die erste oder letzte Stelle mit dem kleinsten Wert in F2 suchen und mit F1 dieser Stelle weiterarbeiten?
-
Hallo allerseits,
um die Verwirrung aufzulösen
F1 -> 1, 15, 2, 20, .....
F2 -> 15, 3, 6, 98,.....
F3 -> im 2. Element ein K und mit F1(2) weiterarbeiten, da in F2 der kleinste Werte die 3 ist.
Es sollte ja mit dem Index des kleinsten Wertes auf F2 in F1 weitergearbeitet werden, d.h. mit der 15 aus F1 wird weitergearbeitet.
Hoffe ich konnte das etwas aufhellen.
LG
Franz-Georg
-
Nun denn:
D DS
D Feldgruppen x(8) dim(10) ascend
d xF2 5 0 dim(10) overlay(feldgruppen:1)
d xF2I 3 0 dim(10) overlay(feldgruppen:*next)
for x=1 to 10
xF2(x)=f2(x)
xF2I(x)=x
endfor;
sorta Feldgruppen;
=> xF2i(1) steht der Index aus F2 des kleinsten Wertes
-
Kleinster = 1
Mit Index von 2 bis 10:
Falls F2(Index) < F2(Kleinster): Kleinster = Index
Weiter mit F1(Kleinster)
Similar Threads
-
By thorssc1 in forum NEWSboard Programmierung
Antworten: 13
Letzter Beitrag: 19-05-16, 11:25
-
By Paul_Hofmann in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 23-10-15, 09:27
-
By harbir in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 29-10-14, 02:29
-
By it-dol in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 24-07-14, 13:05
-
By camouflage in forum NEWSboard Programmierung
Antworten: 1
Letzter Beitrag: 22-07-14, 12:10
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks