Pascal - Pyetje provimi për pascal

[EdiR]

ne forum behen detyrat kohet e fundit nuk mire keshtu more djema

Kalofshi mire, Ed

[djlahza]

Ju lutem me ndihmoni..

Test Informatike “Paskal”

1-Te ndertohet nje program i cili pasi te lexoje nje numer te plote (jo me shume se tre shifra) nga tastjera te shkruaje ne ekran sa shifra ka numri dhe cilat jane ato.

2-Ne matricen A[NxN] vetem dy elemente jane te njejte. Te shkruhet nje program qe te lexoje kete matrice dhe te afishoje indekset e elementeve te barabarte.

3-Te ndertohet nje program qe pasi te lexoje nje fraze te numeroje sa here perseritet nje fjale e dhene ne kete fraze.

[Justin]

[QUOTE=djlahza]Ju lutem me ndihmoni..

Test Informatike “Paskal”

1-Te ndertohet nje program i cili pasi te lexoje nje numer te plote (jo me shume se tre shifra) nga tastjera te shkruaje ne ekran sa shifra ka numri dhe cilat jane ato.

include
int main(void) {int i=0, j=0, number, res, rem[3];
printf("Enter a number less than 1000: ");
scanf("%d", &number);
do {rem[i++]=number%10;
number = number/10;} while (number!=0);
printf("Number entered is %d digits long and its digits are: ",i);
for (j=0; j printf("%d, ", rem[j]);
printf("\n");
return 0;

kjo eshte ne C UNIX based....shiko algoritmen

[Justin]

3-Te ndertohet nje program qe pasi te lexoje nje fraze te numeroje sa here perseritet nje fjale e dhene ne kete fraze.

#include
#include

int main(void){char fraze[1000], *ptr;
char word[20];
int i;

printf("Enter string: ");
gets(fraze);

printf("Enter word: ");
gets(word);

ptr=strstr(fraze,word);

while (ptr!=NULL) { i++; ptr=ptr+strlen(word); ptr=strstr(ptr,word);}

printf("%d occurences of %s\n", i, word);

return 0;
}

[djlahza]

justin, rrofsh plako...

[Justin]

2-Ne matricen A[NxN] vetem dy elemente jane te njejte. Te shkruhet nje program qe te lexoje kete matrice dhe te afishoje indekset e elementeve te barabarte.
.

#include

#define ROW 10
#define COLUMN 10

int main(void)
{
int matrix[ROW][COLUMN];
int i, j, k, l, a=0,current;

//Sample matrix population; Can be changed
for (i=0; i {
for (j=0; j {
matrix[i][j]=a++;
printf("%d, ", matrix[i][j]);
}
printf("\n");
}
//Artificially make two elements equal for the purpose of this test
matrix[5][9]=12;


for (i=0; i for (j=0; j {
current=matrix[i][j];
for (k=0; k for (l=0; l {
if ((k!=i)&&(j!=l)&&(current==matrix[k][l]))
{
printf("EQUAL! %d in (%d, %d) and (%d, %d)\n", current,i,j,k,l);
return 0;
}
}
}

return 0;
}

[Justin]

justin, rrofsh plako...

Tani je ne rregull flori....rregulloi sistemoi sic i do vete....

[qoska]

Ka vetem nje problem :P qe ajo nuk eshte gjuhe Paskal por C ;O.

[eni_]

sic tha dhe qoska, ajo eshte C;
spo kuptoj c'hyn C ne paskal.

[Slack]

nuk ka rendesi ne cfare gjuhe eshte. rendesi ka logjika edhe algoritmi.