x-kom hosting

Problem z programem

klops1
utworzono
utworzono

Witam !

Mam problem z zadaniem w dev-pascalu. Właściwie to nie potrafie go zrobić.

Problem: Użytkownik chce opracować program/skrypt, który będzie pozwalał na automatyczne, "ozdobne" rozszerzanie tekstów.

Zadanie: Napisać program, który wczytuje z klawiatury dowolny ciąg znaków. Następnie znaki te są przetwarzane przez funkcję w taki sposób, że po każdym znaku oprócz ostatniego dodany jest znak "." . Wynikowy ciąg znaków należy zapisać do pliku wynik.txt

Przykład:

Użytkownik wpisał : To jest jakis tekst Plik wyjściowy powinien zawierać: T.o. .j.e.s.t. .j.a.k.i.s. .t.e.k.s.t

wiem ze to dla niektorych banalne takze proszę podanie kodu takiego programu z malymi wyjasnieniami co do czego :) .. z gory dziękuję.

  • 2 tygodnie później...

grucha
komentarz
komentarz

Nie zrobiłem Ci tego w Dev bo go nie mam ale, mam nadzieje ze mój kod z Delphi na cos Ci się przyda :)

program Project1;{$APPTYPE CONSOLE}uses  SysUtils,  Windows;function ozdoba(tekst:string):string;var d,i:integer;  //zmiene do oblugi //petli oraz do przechowywania dlugosci lancucha w:string; //zeminna pozmocniczabegin d:=Length(tekst);  //okresla dlugosc tekstu for i:=1 to d-1 do  //petla dzialajaca od pierwszego do przewdostatniego znaku  begin   w:=w+tekst[i]+'.'; //dodanie kropki poi kazdym znaku  end;	ozdoba:=w+tekst[d]; //dodanie ostatniej litery tekstuend;var tekst:string; plik:TextFile;begin  Writeln('Podaj jakis tekst');  Readln(tekst);  tekst:=ozdoba(tekst);  Writeln('wynikowy ciag: ',tekst);  Assign(plik, 'wynik.txt'); //skojarzeniue pliku  Rewrite(plik);   //twarcie do zapisu  Writeln(plik, tekst); //zapisanie tekstu wynikowego  CloseFile(plik);  //zamkniecie  Writeln('Wynikowy tekst zosatl zapisany do pliku "wynik.txt".');  Readln;end.
Lucider
komentarz
komentarz

klops1, a próbowałeś chociaż cokolwiek zrobić sam, czy chcesz żeby Ci ludzie pracę domową odrabiali?

klops1
komentarz
komentarz

dzieki za refleks. zrobilem sam i dostalem 3 .. ;]

Popek
komentarz
komentarz

Ciekawe jak cie nauczycel oceniał, dostałeś 3 ?! Dla mnie to byłby szok ...

Z tak prostego przedmiotu jak informatyka chyba każdy ma 6 ;)

Lucider
komentarz
komentarz

popek11, w Twoim wieku to mogłeś mieć co najwyżej technologie informacyjne a nie informatykę :)

Rosiu
komentarz
komentarz

popek11 uwierz mi jeszcze nie wiesz co to jest informatyka....

Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!

Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.