Помош: Кратки програмки

[KristijanMK]

Си заборавил кај болдираниот дел

Ставив и таму и пак ми ја дава истата грешка.

 

[SkyDriver]

Друже, абе ти си имал повеќе грешки...

Program Pogodi go brojot;
Var number,guess,i,counter:Integer;
Begin
Randomize;
counter:=0;
For i:=1 To 3 Do Begin
number:=1+Random(3);
WriteLn('---------------------');
WriteLn(i,'. Pogodi go brojot.');
Repeat
Write('Daj mi broj pomegju 1 i 3:');

ReadLn(guess) [B]// Тука точка-запирка[/B]
If (guess<number) Then Begin
WriteLn('Brojot e premnogu mal. '+' Brojot beshe:',number);
if(i<>) then WriteLn('Obidete se povtorno!');
Else WriteLN('Igrata e zavrsena.');
Break;
End;
If (guess>number) Then Begin
WriteLn('Brojot e premnogu golem.'+' Brojot beshe ',number);
if (i<>3) then WriteLn('Obidete se povtorno!');
Else WriteLn('Igrata e zavrsena.');
Break;
End;
If (guess=number) Then Begin
WriteLn(Cestitki!!!); [B]// Тука наводници[/B]
if (i<>3) then WriteLn ('Vie go pogodivte brojot!!!); [B]// Тука наводници на крај[/B]
Else WriteLn('Igrata e zavrsena');
counter:=counter+1;
Break;
End;
Untel guess=number;
End;
WriteLn('-----------------------------------');
WriteLn; [B]// Овде не сум сигурен, ама мислам дека треба WriteLn();[/B]
WriteLn('Vkupno poeni:'counter,'of 3');
WriteLn('------------------------------');
ReadLn; [B]// Исто и тука мислам дека треба ReadLn();[/B]
End.

Е сега во компајлер не ми е пробан кодот, ама вака на око мислам дека тие се грешките (синтаксичкиот дел).

 

[hristijan90]

if(br%(n%10)!=0) { return false; }
batka ovdeka mi kazuva greska ako mozes da vidis so e greskata
fala tii

 

[KristijanMK]

Друже, абе ти си имал повеќе грешки...

Program Pogodi go brojot;
Var number,guess,i,counter:Integer;
Begin
Randomize;
counter:=0;
For i:=1 To 3 Do Begin
number:=1+Random(3);
WriteLn('---------------------');
WriteLn(i,'. Pogodi go brojot.');
Repeat
Write('Daj mi broj pomegju 1 i 3:');

ReadLn(guess) [B]// Тука точка-запирка[/B]
If (guess<number) Then Begin
WriteLn('Brojot e premnogu mal. '+' Brojot beshe:',number);
if(i<>) then WriteLn('Obidete se povtorno!');
Else WriteLN('Igrata e zavrsena.');
Break;
End;
If (guess>number) Then Begin
WriteLn('Brojot e premnogu golem.'+' Brojot beshe ',number);
if (i<>3) then WriteLn('Obidete se povtorno!');
Else WriteLn('Igrata e zavrsena.');
Break;
End;
If (guess=number) Then Begin
WriteLn(Cestitki!!!); [B]// Тука наводници[/B]
if (i<>3) then WriteLn ('Vie go pogodivte brojot!!!); [B]// Тука наводници на крај[/B]
Else WriteLn('Igrata e zavrsena');
counter:=counter+1;
Break;
End;
Untel guess=number;
End;
WriteLn('-----------------------------------');
WriteLn; [B]// Овде не сум сигурен, ама мислам дека треба WriteLn();[/B]
WriteLn('Vkupno poeni:'counter,'of 3');
WriteLn('------------------------------');
ReadLn; [B]// Исто и тука мислам дека треба ReadLn();[/B]
End.

Е сега во компајлер не ми е пробан кодот, ама вака на око мислам дека тие се грешките (синтаксичкиот дел).

Фала. Ќе го пробам после, па ќе кажам што сум направил.

 

[zlxlclvlbln]

if(br%(n%10)!=0) { return false; }
batka ovdeka mi kazuva greska ako mozes da vidis so e greskata
fala tii

Делење со нула е проблемот. Еве го тоа програмчето од Скај малце поправено.

#include <stdio.h>

int proveri(int n) {
	int br = n;
	int cifra;
	while(n>0) {
		cifra = n%10;
		if(cifra == 0 || br%cifra!=0) { return 0; }
		n/=10;
	}
	return 1;
}

int main() {
	int n = 10000;
	int i;
	for(i=0; i<n; i++) {
		if(proveri(i)) {
			printf("%d ", i);
		}
	}
	printf("\n");
}

 

[Excalibur2015]

Циклуси

Може ли некој да ми помогне околу оваа задача:
Да се прочитаат n природни броеви и да се најде нивниот збир и колку од нив се делливи со 3, а колку не се?

 

[hristijan90]

Делење со нула е проблемот. Еве го тоа програмчето од Скај малце поправено.

#include <stdio.h>

int proveri(int n) {
    int br = n;
    int cifra;
    while(n>0) {
        cifra = n%10;
        if(cifra == 0 || br%cifra!=0) { return 0; }
        n/=10;
    }
    return 1;
}

int main() {
    int n = 10000;
    int i;
    for(i=0; i<n; i++) {
        if(proveri(i)) {
            printf("%d ", i);
        }
    }
    printf("\n");
}

имам проблем ама не знам шо му е хех го пишувам кодот, значи во C-project ама на екран не ми пецати нисто и кога ке стиснам некоја од бројките екранот ми зе затвара во стое проблемот ако може помос:uvo::uvo: фалави

 

[SkyDriver]

Може ли некој да ми помогне околу оваа задача:
Да се прочитаат n природни броеви и да се најде нивниот збир и колку од нив се делливи со 3, а колку не се?

Значи кога ќе внесеш 0 програмот престанува да вчитува броеви и ти печати резултати.

int main()
{
	int zbir = 0;
	int delivi = 0;
	int nedelivi = 0;
	int n = 0;

	while(scanf("%d", &n)) {
		if(!n) {
			break;
		}
		zbir+=n;
		if(n%3==0) {
			delivi++;
		} else {
			nedelivi++;
		}
	}

	printf("Zbirot e %d: ", zbir);
	printf("\nIma %d broevi delivi so 3.", delivi);
	printf("\nIma %d broevi koi ne se delivi so 3.", nedelivi);
	system("pause");
}

имам проблем ама не знам шо му е хех го пишувам кодот, значи во C-project ама на екран не ми пецати нисто и кога ке стиснам некоја од бројките екранот ми зе затвара во стое проблемот ако може помос:uvo::uvo: фалави

Ами бројките на екранот ти се уствари броевите кои се деливи со нивните цифри, промени го делот „int n = 10000“ такашто „n“ ќе ја вчиташ од тастатура и вози.

 

[hristijan90]

ФАЛАТИ НАЈМНОГУ!!!! ИМАШ ЧАСТЕЊЕ ЗА ОВА ОХРИД КОГА КЕ ДОЈДЕШ ЌЕ СЕ НАЈДЕМЕ НЕКАКО ФАЛАТИ УШТЕ ЕДНАШ

 

[vlatko-nik]

Хмм... незнам друже, кај мене истиот код не јави грешки (во Visual Studio 2008).
Кажи што грешка ти јавува, зашто вака на слепо не би можел ништо да ти кажам.
П.С. Провери го убаво кодот да не си угнал некоја заграда, запирка или слично.[/quote]


fala ti mnogu druze me spasi(ovaa programa mi bese za seminarska),i bese vo pravo imav moja greska imav utnato edna zagrada:wink:fala ti uste ednas

 

[-Rubik-]

Da se napise programa vo koja se vnesuva kvadratna matrica od celi broevi so max golemina 10x10, Matricata da se izmeni na takov nacin sto elementite od glavnata i sporednata dijagonala ke si gi zamenat svoite mesta. Na kraj da se otpecati promenetata matrica. ???????? :nesvest:
3 4 5 6 7 7 4 5 6 3
1 2 3 6 4 1 6 3 2 4
4 2 7 9 1 -> 4 2 7 9 1
1 9 0 3 5 1 3 0 9 5
4 6 2 8 1 1 6 2 8 4

3 4 5 6 7 7 4 5 6 3
1 2 3 6 4 1 6 3 2 4
4 2 7 9 1 -> 4 2 7 9 1
1 9 0 3 5 1 3 0 9 5
4 6 2 8 1 1 6 2 8 4

 

[SkyDriver]

Da se napise programa vo koja se vnesuva kvadratna matrica od celi broevi so max golemina 10x10, Matricata da se izmeni na takov nacin sto elementite od glavnata i sporednata dijagonala ke si gi zamenat svoite mesta. Na kraj da se otpecati promenetata matrica. ???????? :nesvest:
3 4 5 6 7 7 4 5 6 3
1 2 3 6 4 1 6 3 2 4
4 2 7 9 1 -> 4 2 7 9 1
1 9 0 3 5 1 3 0 9 5
4 6 2 8 1 1 6 2 8 4

3 4 5 6 7 7 4 5 6 3
1 2 3 6 4 1 6 3 2 4
4 2 7 9 1 -> 4 2 7 9 1
1 9 0 3 5 1 3 0 9 5
4 6 2 8 1 1 6 2 8 4

Главната дијагонала запиши ја во една низа, споредната дијагонала во друга низа и после тоа елементите од гланата матрица исполни ги со низата со споредната дијагонала, а споредната дијагонала исполни ја со низата од главната дијагонала.

Тука имаш алгоритам за движење дијагонално низ матрици.

 

[-Rubik-]

ama ova e vo c++,taka?
a vo c kako e resenieto?
isto treba da gi grupiram dijagonalite vo 2 nizi??

 

[SkyDriver]

ama ova e vo c++,taka?
a vo c kako e resenieto?
isto treba da gi grupiram dijagonalite vo 2 nizi??

Исто е... само низите ќе ги направиш да бидат int, едната ја полниш со главната дијагонала, другата ја полниш со споредната дијагонала и после дијагоналите на матрицата ги полниш обратно, главната дијагонала од матрицата ја полниш со низата од споредната дијагонала, а споредната дијагонала од матрицата ја полниш со низата од главната дијагонала и на крај ја печатиш матрицата.

 

[-Rubik-]

fala skyDriver:salut: