klops1 utworzono 16 kwietnia 2007 utworzono 16 kwietnia 2007 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ę.
grucha komentarz 29 kwietnia 2007 komentarz 29 kwietnia 2007 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 29 kwietnia 2007 komentarz 29 kwietnia 2007 klops1, a próbowałeś chociaż cokolwiek zrobić sam, czy chcesz żeby Ci ludzie pracę domową odrabiali?
klops1 komentarz 3 maja 2007 Autor komentarz 3 maja 2007 dzieki za refleks. zrobilem sam i dostalem 3 ..
Popek komentarz 3 maja 2007 komentarz 3 maja 2007 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 3 maja 2007 komentarz 3 maja 2007 popek11, w Twoim wieku to mogłeś mieć co najwyżej technologie informacyjne a nie informatykę
Rosiu komentarz 7 maja 2007 komentarz 7 maja 2007 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.