-
@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, 12:25
-
By Paul_Hofmann in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 23-10-15, 10:27
-
By harbir in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 29-10-14, 03:29
-
By it-dol in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 24-07-14, 14:05
-
By camouflage in forum NEWSboard Programmierung
Antworten: 1
Letzter Beitrag: 22-07-14, 13: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