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

  • Креатор на темата Креатор на темата back_rest
  • Време на започнување Време на започнување
Друже, абе ти си имал повеќе грешки...

Код: 
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.

Е сега во компајлер не ми е пробан кодот, ама вака на око мислам дека тие се грешките (синтаксичкиот дел).
 
if(br%(n%10)!=0) { return false; }
batka ovdeka mi kazuva greska ako mozes da vidis so e greskata
fala tii
 
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
Кликни за повеќе...

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

Код: 
#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");
}
 
Циклуси

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

Код: 
#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");
}
Кликни за повеќе...



имам проблем ама не знам шо му е хех:toe: го пишувам кодот, значи во C-project ама на екран не ми пецати нисто и кога ке стиснам некоја од бројките екранот ми зе затвара во стое проблемот ако може помос:uvo::uvo: фалави
 
Excalibur2015 напиша:
Може ли некој да ми помогне околу оваа задача:
Да се прочитаат 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");
}

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

Ами бројките на екранот ти се уствари броевите кои се деливи со нивните цифри, промени го делот „int n = 10000“ такашто „n“ ќе ја вчиташ од тастатура и вози. :)
 
ФАЛАТИ НАЈМНОГУ!!!! ИМАШ ЧАСТЕЊЕ ЗА ОВА ОХРИД КОГА КЕ ДОЈДЕШ ЌЕ СЕ НАЈДЕМЕ НЕКАКО ФАЛАТИ УШТЕ ЕДНАШ
 
Хмм... незнам друже, кај мене истиот код не јави грешки (во Visual Studio 2008).
Кажи што грешка ти јавува, зашто вака на слепо не би можел ништо да ти кажам. :toe:
П.С. Провери го убаво кодот да не си угнал некоја заграда, запирка или слично.[/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 :P
 
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. ???????? :toe::toe::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
 
Vlatko- напиша:
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. ???????? :toe::toe::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
Кликни за повеќе...

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

Тука имаш алгоритам за движење дијагонално низ матрици. :)
 
ama ova e vo c++,taka?
a vo c kako e resenieto?
isto treba da gi grupiram dijagonalite vo 2 nizi?:toe:?
 
Vlatko- напиша:
ama ova e vo c++,taka?
a vo c kako e resenieto?
isto treba da gi grupiram dijagonalite vo 2 nizi?:toe:?
Кликни за повеќе...

Исто е... само низите ќе ги направиш да бидат int, едната ја полниш со главната дијагонала, другата ја полниш со споредната дијагонала и после дијагоналите на матрицата ги полниш обратно, главната дијагонала од матрицата ја полниш со низата од споредната дијагонала, а споредната дијагонала од матрицата ја полниш со низата од главната дијагонала и на крај ја печатиш матрицата. :)
 
You must log in or register to reply here.

Kajgana Shop

Back
На врв Bottom