Caricare documenti e articoli online 
INFtube.com è un sito progettato per cercare i documenti in vari tipi di file e il caricamento di articoli online.
Meneame
 
Non ricordi la password?  ››  Iscriviti gratis
 

RELAZIONE DI INFORMATICA - Inversione di una stringa

informatica


Inviare l'articolo a Facebook Inviala documento ad un amico Appunto e analisi gratis - tweeter Scheda libro l'a yahoo - corso di

RELAZIONE DI INFORMATICA



Titolo: Inversione di una stringa. Il seguente algoritmo permette di invertire una stringa: se una stringa S è vuota, il suo rovesciamento è la stringa vuota; altrimenti è la concatenazione del rovesciamento di S, privata 333c24d del primo carattere, con il primo carattere stesso


Autore

Data di inizio del lavoro: 12 novembre 2001


Data di fine del lavoro: 15 novembre 2001


ANALISI DEL PROGRAMMA


Obbiettivi: Costruire un programma che effettui l'inversione di una stringa


Interfaccia grafico: Avendo costruito il programma in pascal non posso presentare alcun tipo si interfaccia grafico


Soluzione delle procedure: Ho risolto il programma utilizzando 2 cicli for perché se avessi utilizzato un ciclo solo avrei avuto come risultato la stringa identica a come l'avevo immessa.

Il ciclo J parte dall'inizio dell'array fino a metà mentre il ciclo I parte dalla fine dell'array fino a metà.

Ad ogni passo del ciclo si scambiano le celle con contatore I e J utilizzando la variabile d'appoggio varapp.

Utilizzando ad esempio un array di 6 caselle avrò che il primo ciclo for comprenderà le prime 3 celle mentre il secondo ciclo comprenderà le restanti.

Array = inverti







1° ciclo for 2° ciclo for


Se l'array sarebbe stato di 7 caselle o comunque un numero dispari non avrebbe avuto importanza in quanto nell'inverso di una parola la lettera al centro rimarrebbe invariata.


Variabili utilizzate

Varapp = variabile d'appoggio

I, J = contatori

Inverti = array

n = determina le lettere dell'array


Programma

Program inverso

Var I,n,J,varapp:integer;

var inverti:array[1..100] of string;

begin

writeln ('quante lettere vuoi immettere?,);

readln(n);

for I:=1 to n do

begin

writeln ('scrivi la lettera nella cella',I);

readln(inverti[I]);

end;

for I:=n downto n/2 do

begin

for J:=1 to n/2 do

begin

varapp:=inverti[I];

inverti[I]:=inverti[J];

inverti[J]:=varapp;

write(inverti[j]);

end;

end;

end.


Test




P

A

R

O

L

A




A

A

R

O

L

P




A

L

R

O

A

P





A

L

O

R

A

P




Osservazione e Conclusione: Il programma non ha presentato particola difficolta nello svolgimento eccetto quello di capire che doveva essere svolto con 2 cicli.

Ho svolto il programma in pascal in quanto lo ritenevo più semplice nell'esecuzione. 







Privacy

Articolo informazione


Hits: 1473
Apprezzato: scheda appunto

Commentare questo articolo:

Non sei registrato
Devi essere registrato per commentare

ISCRIVITI

E 'stato utile?



Copiare il codice

nella pagina web del tuo sito.


Copyright InfTub.com 2020