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

Mr.HyPNoTiC · 3 февруари 2009

Ми треба помош за задачата во паскал
Да се утврди дали трицифрениот број n е еднаков на збирот на кубовите на неговите цифри ...

Ај ако може некој побрзо нека одговори

диме · 3 февруари 2009

Demonce14 напиша:
Ми треба помош за задачата во паскал
Да се утврди дали трицифрениот број n е еднаков на збирот на кубовите на неговите цифри ...

Ај ако може некој побрзо нека одговори

Еве ја во Јava:

Код:

public static void main(String[] args) {
		
		int br = 234;
		int br2 = br;
		int zbir = 0;
		
		while( br2>0 ){
			
			int cifra = br2 % 10;
			zbir += cifra * cifra * cifra;
			
			br2 = br2 / 10;
		}
		
		if( zbir == br )
			System.out.println("Isti se.");
		
	}

А колку шо памтам од Pascal:

Код:

                br := 234;
		br2 := br;
		zbir := 0;
	
		while (br2 > 0) do
		begin
		
		cifra := br2 MOD 10;
		zbir := zbir + (cirfa*cifra*cifra);
		
		br2 := br2 DIV 10;
		end
		
		if ( zbir = br ) do
			writeln("Taka e :)");

Mr.HyPNoTiC · 3 февруари 2009

диме напиша:

Еве ја во Јava:

Код:

public static void main(String[] args) {
        
        int br = 234;
        int br2 = br;
        int zbir = 0;
        
        while( br2>0 ){
            
            int cifra = br2 % 10;
            zbir += cifra * cifra * cifra;
            
            br2 = br2 / 10;
        }
        
        if( zbir == br )
            System.out.println("Isti se.");
        
    }

А колку шо памтам од Pascal:

Код:

                br := 234;
        br2 := br;
        zbir := 0;
    
        while (br2 > 0) do
        begin
        
        cifra := br2 MOD 10;
        zbir := zbir + (cirfa*cifra*cifra);
        
        br2 := br2 DIV 10;
        end
        
        if ( zbir = br ) do
            writeln("Taka e :)");

Јок ... теско е ...

SkyDriver · 3 февруари 2009

Demonce14 напиша:
Јок ... теско е ...

Според примерот на Диме еве ти ја и во C++

Код:

#include <cstdlib>
#include <iostream>

using namespace std;

int main()
{
    int br, br2 = br, zbir=0;
        
        cout<<"Vnesi tricifren broj: ";
        cin>>br;
        
        while( br2>0 ){
            
            int cifra = br2 % 10;
            zbir += cifra * cifra * cifra;
            
            br2 = br2 / 10;
        }
        
        if( zbir == br )
            cout<<"Isti se.\n";
        else
            cout<<"Ne se isti.\n";
        system("pause");
        return 0;
}

За во Pascal ќе видам, ако можам ќе ја решам, ако не здравје... :toe:

Едит: Абе треба да е точен примерот на Диме :/
Направив мали корекции... пробај го сега кодов

Код:

[FONT=monospace]

[/FONT]        program presmetuvanje; 
        uses wincrt; 
        br := 234;
        br2 := br;
        zbir := 0;
    
        while (br2 > 0) do
        begin
        
        cifra := br2 MOD 10;
        zbir := zbir + (cirfa*cifra*cifra);
        
        br2 := br2 div 10;
        end;
        
        if ( zbir = br ) do
            writeln('Taka e :');
        else         
            writeln('Ne e taka.');
end.

Едит 2: Внимавајте на синтаксички грешки, мислам дека задачата е точна, само има синтаксички грешки.

*Zbrkic* · 3 февруари 2009

Demonce14 напиша:
Ми треба помош за задачата во паскал
Да се утврди дали трицифрениот број n е еднаков на збирот на кубовите на неговите цифри ...

Ај ако може некој побрзо нека одговори

eve ti go zapisot vo pascal:

program tricifren;
VAR:n,s,d,e:integer;

Begin
Write('Vnesi go tricifreniot broj n= ');
readln (n)

;
s:=n div 100;
d:=n div 10 mod 10;
e:=n mod 10;
if n=s*s*s+d*d*d+e*e*e then writeln('Brojot e ednakov')
else writeln('Brojot ne e ednakov');
readln;
End.

vlado123 · 4 февруари 2009

Zdravo,na site

Pred nedela dena imav kolokvium po strukturirano i se padna edna zadaca so ne mi bese jasna.ako moze nekoj da mi ja resi ke mu bidam blagodaren.

Da se napise funkcija koja ke vrati 1 ako pred znakot '@' nema '.' i posle nego barem eden karakter e bukva i da ne zavrsuva na '.',vo sprotivno da vrati 0.
zadacava e valjda da proveri vnesuvanje na mail asd@ads.com ke vrati 1
12.123@.ads 0

fala

Petkovsky · 4 февруари 2009

vlado123 напиша:
Zdravo,na site

Pred nedela dena imav kolokvium po strukturirano i se padna edna zadaca so ne mi bese jasna.ako moze nekoj da mi ja resi ke mu bidam blagodaren.

Da se napise funkcija koja ke vrati 1 ako pred znakot '@' nema '.' i posle nego barem eden karakter e bukva i da ne zavrsuva na '.',vo sprotivno da vrati 0.
zadacava e valjda da proveri vnesuvanje na mail asd@ads.com ke vrati 1
12.123@.ads 0

fala

Pretpostavuvam treba da e napisana vo C.

Poveli :

PHP:

int proveri(char *adresa)
{
    
/*

      potrebni biblioteki:
       <stdio.h>
       <string.h>
       <ctype.h>
      
      
*/    
    
    
    char *tocka;
    char *manki;
    int dolzina;
    
    dolzina = strlen(adresa);
    tocka = strstr(adresa,".");
    if(tocka==NULL)
    {
        printf("greska\n");
        return 0;
    }
    manki = strstr(adresa,"@");
    if(manki==NULL)
    {
        printf("greska\n");
        return 0;
    }
    
    if(manki>tocka)
    return 0;
    else if(!isalpha(*(manki+1)))
    return 0;
    else if (adresa[dolzina-1]=='.')
    return 0;
    else
    return 1;
    
}

KristijanMK · 6 февруари 2009

Ај ако може кодови за правење на спамер, нотпед и пребарувач во вишуал бејзик 2008. Благодарам однапред.

SkyDriver · 6 февруари 2009

kikac 123 напиша:
Ај ако може кодови за правење на спамер, нотпед и пребарувач во вишуал бејзик 2008. Благодарам однапред.

Тоа ќе бараш од спамери, не од кајганџии :icon_lol:

Едит:
За нотепад користи текст бокс. Имаш како една стрелкичка на самиот текст бокс, стисни на неа и штиклирај го полето за штиклирање за да можеш да ја шириш како сакаш.
За прелистувачот користи WebBrowser или текст бокс и користи и кај адрес барот користи "navigate url".

KristijanMK · 6 февруари 2009

SkyDriver напиша:
Тоа ќе бараш од спамери, не од кајганџии

Хех, добро ако не може тоа тогаш дали ќе може да ми дадете код за некоја мала програма во Visual basic. Ќе ви бидат многу благодарен доколку го стори тоа некој.

SkyDriver · 6 февруари 2009

kikac 123 напиша:
Хех, добро ако не може тоа тогаш дали ќе може да ми дадете код за некоја мала програма во Visual basic. Ќе ви бидат многу благодарен доколку го стори тоа некој.

Ај да не речеш нешто дека се курчам или било што... вака...

За спамирање види на YouTube имаш туторијали.

За прелистувач кликни тука или пиши на Google > Web Browser in VB или VB.NET

За нотепад или кликни тука или на Google пиши Notepad in VB или VB.NET

Да ти дадам само код или пак да ти дадам мои проекти џабе би било, поубаво би било по ред... како што е пишуван кодот така да има и објаснувања за него. На Google има различни туторијали и мислам дека лесно би сватил што и како идат работите (бар за VB)

McMurphy · 7 февруари 2009

[FONT=&quot]. [/FONT][FONT=&quot]Што е излез [/FONT][FONT=&quot]по извршување на програмскиот сегмент:[/FONT] int arr[5], i;
for (i = 0; i < 5; i++)
{
arr = i + 2;
if (i >= 3)
arr[i-1] = arr + 3;
}
cout << arr[2];
може некој да ми го објасни ова не во смилсол да ми каже што е излез, го копмајлирав и знам што оди на излез. Ако може да ми објасни како функционира на кратко

диме · 7 февруари 2009

JOVAN_ALIEN напиша:
[FONT=&quot]. [/FONT][FONT=&quot]Што е излез [/FONT][FONT=&quot]по извршување на програмскиот сегмент:[/FONT] int arr[5], i;
for (i = 0; i < 5; i++)
{
arr = i + 2;
if (i >= 3)
arr[i-1] = arr + 3;
}
cout << arr[2];
може некој да ми го објасни ова не во смилсол да ми каже што е излез, го копмајлирав и знам што оди на излез. Ако може да ми објасни како функционира на кратко

Па....

arr[5] ти е табела со 5 полиња. Можиш визуелно да си ја замислиш вака:

Код:

индекс | 0 | 1 | 2 | 3 | 4 | вред. | | | | | |

for циклусот е повторувачки циклус и го извршува кодот шо се наоѓа во него неколку пати.

Е сега твојот for циклус е for (i = 0; i < 5; i++) и тоа значи дека во 1. повторување променливата i ја добива вредноста 0 ( делот i=0 ), во наредното повторување се зголемува за 1 ( делот i++ ) и ќе повторува се додека i не ја добие вредноста 4 ( делот i<5; значи повторува се додека i е помало од 5 ).

Е сега чекор по чекор:

1. Прво повторување : i=0

arr[0] = 0 + 2;

2. Второ повторување : i=1

arr[1] = 1 + 2;

3. Трето повторување : i=2

arr[2] = 2 + 2;

4. Четврто повторување : i=3

arr[3] = 3 + 2;
arr[2] = arr [3] + 3; ==> arr[2] = 5+3

5. Петто повторување : i = 4

arr[4] = 4 + 2;
arr[3] = arr [4] + 3; ==> arr[3] = 6+3

И на крај добиваш:

Код:

индекс | 0 | 1 | 2 | 3 | 4 | вред. | 2 | 3 | 8 | 9 | 6 |

И на крај

Код:

cout << arr[2];

ти ја испишва вредноста на полето со индекс 2: 8

McMurphy · 7 февруари 2009

диме напиша:
Па....

arr[5] ти е табела со 5 полиња. Можиш визуелно да си ја замислиш вака:

Код:

индекс | 0 | 1 | 2 | 3 | 4 | вред. | | | | | |

for циклусот е повторувачки циклус и го извршува кодот шо се наоѓа во него неколку пати.

Е сега твојот for циклус е for (i = 0; i < 5; i++) и тоа значи дека во 1. повторување променливата i ја добива вредноста 0 ( делот i=0 ), во наредното повторување се зголемува за 1 ( делот i++ ) и ќе повторува се додека i не ја добие вредноста 4 ( делот i<5; значи повторува се додека i е помало од 5 ).

Е сега чекор по чекор:

1. Прво повторување : i=0

arr[0] = 0 + 2;

2. Второ повторување : i=1

arr[1] = 1 + 2;

3. Трето повторување : i=2

arr[2] = 2 + 2;

4. Четврто повторување : i=3

arr[3] = 3 + 2;
arr[2] = arr [3] + 3; ==> arr[2] = 5+3

5. Петто повторување : i = 4

arr[4] = 4 + 2;
arr[3] = arr [4] + 3; ==> arr[3] = 6+3

И на крај добиваш:

Код:

индекс | 0 | 1 | 2 | 3 | 4 | вред. | 2 | 3 | 8 | 9 | 6 |

И на крај

Код:

cout << arr[2];

ти ја испишва вредноста на полето со индекс 2: 8

фала многу Диме

vlado123 · 9 февруари 2009

Fala za codot Petkovsky samo ako mozes sto znaci ovoj red else if(!isalpha(*(manki+1)))

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

Mr.HyPNoTiC

UnTraceable Guest!

диме

When Am I ?

Mr.HyPNoTiC

UnTraceable Guest!

SkyDriver

Would like my bananna ?

Zbrkic

vlado123

Petkovsky

KristijanMK

SkyDriver

Would like my bananna ?

KristijanMK

SkyDriver

Would like my bananna ?

McMurphy

натчовек

диме

When Am I ?

McMurphy

натчовек

vlado123

Kajgana Shop