Problema Informatica...

[PC_fanatic]

hihihi no lo devo solo consegnare e mette voto

[PC_fanatic]

Lo scrivo qui in qualcosa che assomiglia al C (mi rifiuto di farlo in Pascal), ma non ti garantarisco che funzioni al primo colpo (compilazione....)

/* Qui ci vanno i valori iniziali */
char V1[] = "questi dovrebbero essere 20 caratteri ma sono di piu";
char V2[] = "abcde";
/* Iteratori */
int i=0;
int j=0

/* Questo primo ciclo controlla tutti gli elementi di V1 */
for (i=0; i<20; i++){
    /* Questo secondo ciclo controlla tutti gli elementi di V2 e 
        viene eseguito per ogni elemento di V1 */
    for (j=0; j<5; j++){
         /* Se i due caratteri controllati corrispondono, sostiuisco quello nel
             primo vettore con il carattere * */
         if (V1[i] == V2[j]){
              V1[i] = '*';
         }
    }
}

/* Finito */

Sappi che questa roba in C non compila, quindi traducilo in Pascal.

O_O non ci capisco na mazza in C mai fatto e usato .Solo la nostra sezione utilizza il PASCAL

[djordj]

hihihi no lo devo solo consegnare e mette voto

Allora consegnale un bel trattato su come quella roba in C si sarebbe fatta in un istruzione sola (str-qualcosa), per non parlare di qualche linguaggio più moderno (Java, Delphi, Python....).
Secondo me fai una figurona della miseria, certo che devi documentare bene tutto.
Tra l'altro potresti descriverle come introducendo Eclipse con Java o con il plugin CDT per GCC, le finanze dell'istituto ne trarrebbero notevole giovamento, visto che molto probabilmente per usare VB e Pascal avranno acquistato qualche TURBO-minch..ta

[djordj]

O_O non ci capisco na mazza in C mai fatto e usato .Solo la nostra sezione utilizza il PASCAL

Oh mamma... sono due cicli for annidati, ci sarà qualcosa di equivalente in Pascal..............................

[PC_fanatic]

si ho capito,ma all'inizio tu consideri gia l'array pieno???
Quindi la parte di INPUT la dovrei fare io vero?

[PC_fanatic]

mo provo a farlo...

[PC_fanatic]

Forse va :D

[PC_fanatic]

Va ragazzi grazie

[PC_fanatic]

Program alexprog;
VAR V:array [1..20] of string ;
L:array [1..5] of string;
i,j:integer;
Begin
For i:=1 to 20 do
begin
writeln('Inserisci caratteri');
readln(V[i]);
end;
For i:=1 to 5 do
begin
writeln('Inserisci 5 caratteri');
readln(L[i]);
end;
For i:=1 to 20 do
begin
For j:=1 to 5 do
begin
IF (V[i]=L[j])
then V[i]:='*'
end;
end;
For i:=1 to 20 do
begin
writeln('NUOVI CARATTERI' ,V[i]);
end;
readln;
end.

[train]

Bravo!
se domani la proffe ti da 7 ricordati di pagare da bere a DjorDj; se invece prendi 8.... una pizza

Comunque ormai il pascal è troppo obsoleto; l'ultima procedura in pcascal ch ho fatto era.... 1986