Skocz do zawartości


Zdjęcie

Zamiana kodu z C na Pascala


  • Zaloguj się, aby dodać odpowiedź
7 odpowiedzi w tym temacie

#1 ComeBack

ComeBack
  • Użytkownicy
  • 3 postów

Napisano 23 wrzesień 2011 - 14:20

Czy mógłby mi ktoś pomóc w zamianie kodu programu napisanego w C na języka Pascala:


#include < cstdio >
#include < cstring >

char c[206][12] ;

bool palindrom(int _i)
{

int l = strlen(c[_i] ) ;

for(int i=0;i

if(c[_i][i]!=c[_i]
[l-1-i])
return false;
return true;
}

bool suma(int _i)
{
int l = strlen(c[_i]) ;
for(int i=0;i
if(c[_i][i]+c[_i][i+1] == 220)
return true;
return false;
}

int main()
{
int n = 200;
for(int i=0;i
scanf("%s",c+i) ;

int nieparzyste = 0 ;
for(int i=0;i
if(strlen(c[i])&1) nieparzyste++ ;
if(false)
printf("a) Parzyste:
%d, Nieparzyste %d\n",200-nieparzyste,nieparzyste) ;

if(false)
for(int i=0;i
if(palindrom(i))
printf("%s\n",c[i]) ;
if(true)
for(int i=0;i
if(suma(i))

printf("%s\n",c[i]) ;

return 0;
}

Z góry dziękuję.
  • 0


#2 mw_1975

mw_1975
  • Użytkownicy
  • 2535 postów

Napisano 25 wrzesień 2011 - 00:01

Kod wyświetla się z błędami! Zrób coś aby był poprawny, bo ciężko będzie pomóc. Co ten kod ma robić?
  • 0
AMD Phenom II 955
Pentagram Karakorum HP-120 AlCu + Arctic Cooling AF1225L
4 GB DDR3 1600 MHz
Było Asus Radeon HD 6950 DCU II, jest XFX 7850 z AC Mono - czego się nie robi dla tej ciszy!
SilentiumPC Deus G1 600W

#3 ComeBack

ComeBack
  • Użytkownicy
  • 3 postów

Napisano 25 wrzesień 2011 - 09:45

To jest treść zadania dotycząca tego programu:

Wykorzystując dane zawarte w pliku hasla.txt, wykonaj poniższe polecenia. Odpowiedzi do poszczególnych
podpunktów zapisz w plikach tekstowych o nazwach wynik4a.txt, wynik4b.txt, wynik4c.txt.

a) W pliku wynik4a.txt podaj, ile haseł ma parzystą, a ile nieparzystą liczbę znaków.
B) W pliku wynik4b.txt utwórz zestawienie haseł (po jednym w wierszu), które są palindromami.
Palindrom to wyraz brzmiący tak samo przy czytaniu z lewej strony do prawej, jak i odwrotnie, np. kajak, potop.
c) Zapisz w pliku wynik4c.txt zestawienie haseł (po jednym w wierszu) zawierających w sobie dwa kolejne znaki,
których suma kodów ASCII wynosi 220.

I prosiłbym o napisanie tego programu w języku Pascal.

Załączone pliki

  • Załączony plik  hasla.txt   1,61 KB   7 Ilość pobrań

  • 0

#4 mw_1975

mw_1975
  • Użytkownicy
  • 2535 postów

Napisano 26 wrzesień 2011 - 14:02

Program masz w załączonym pliku, razem z wynikami.

Myślę, że punkt reputacji mi się należy :-)
  • 1
AMD Phenom II 955
Pentagram Karakorum HP-120 AlCu + Arctic Cooling AF1225L
4 GB DDR3 1600 MHz
Było Asus Radeon HD 6950 DCU II, jest XFX 7850 z AC Mono - czego się nie robi dla tej ciszy!
SilentiumPC Deus G1 600W

#5 magik092

magik092
  • Użytkownicy
  • 1555 postów

Napisano 26 wrzesień 2011 - 14:24

@mw_1975, pkt 15 regulaminu, nie żebym się czepiał:)
  • 0

Dołączona grafika


#6 ComeBack

ComeBack
  • Użytkownicy
  • 3 postów

Napisano 26 wrzesień 2011 - 14:51

mw_1975 dziękuję za pomoc
  • 0

#7 mw_1975

mw_1975
  • Użytkownicy
  • 2535 postów

Napisano 26 wrzesień 2011 - 15:27

'magik092', dnia 26 Wrze 2011 - 13:24, napisał:

@mw_1975, pkt 15 regulaminu, nie żebym się czepiał:)


Masz rację, SORRY!
  • 0
AMD Phenom II 955
Pentagram Karakorum HP-120 AlCu + Arctic Cooling AF1225L
4 GB DDR3 1600 MHz
Było Asus Radeon HD 6950 DCU II, jest XFX 7850 z AC Mono - czego się nie robi dla tej ciszy!
SilentiumPC Deus G1 600W

#8 jarex_67

jarex_67
  • Użytkownicy
  • 151 postów

Napisano 29 sierpień 2017 - 18:19

Spróbuj tutaj jest fajne szkolenie http://geek-on.pl :)


  • 0


Użytkownicy przeglądający ten temat: 1

0 użytkowników, 1 gości, 0 anonimowych