Informatică, întrebare adresată de anabuzenco, 9 ani în urmă

Rezolvarea va rog in C++ si Pascal.
Se dă un fișier text. Să se afișeze ”răsturnatul” conținutului fișierului.


daba: rasturnatul,insemnand de la dreapta la stanga?
daba: si daca da,ce e in fisier? numere sau litere?
anabuzenco: In fisier e o informatie oarecare, trebuie inversul ei.
daba: inversul in sensul de daca e 2 sa afiseze 1/2 sau -2 ??
daba: nu mai stiu ce era inversul
anabuzenco: in fisier va fi pe mai multe rinduri ceva informatie si rasturnatul asta va fi ca primul rind se va duce la urma si ultimul la inceput si tot asa
daba: iti zice cate numere sunt??
daba: sau sunt direct?
anabuzenco: numere nu sint, ca nu rasturnam anumite numere, dar informatie oarecare

Răspunsuri la întrebare

Răspuns de johncrutoi
1
C++

#include <iostream>#include <fstream>#include <algorithm>
using namespace std;
ifstream f("invers.txt");

int main(){  string a,b;  cin>>a;
  // prima metoda folosind biblioteca <algorithm>  reverse(a.begin(),a.end());  cout<<a<<'\n';
   // a doua metoda folosind functia swap  for(int i=0,j=a.size()-1;i<j;i++,j--){      swap(a[i],a[j]);     }     cout<<a<<'\n';
     // a treia metoda interschimbarea variabile    for(int i=a.size();i>=0;i--)    b+=a[i];    a=b;    cout<<a<<'\n';}

Pascal
//Metoda Bulelor
procedure schimb(var s:string);var  i,j:integer;  tmp:char;begin  i := 1;  j := length(s);  while i<j do  begin     tmp:=s[i];     s[i]:=s[j];     s[j]:=tmp;     inc(i);     dec(j)  end;  writeln(s);end;
beginvar f:text;var s:string;assign(f,'invers.txt');reset(f);readln(f,s);schimb(s);end.
Alte întrebări interesante