ABA


"צריך מספר תשובות לשאלות בפסקל:"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #5496 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 5496
xxSPIDERxx

   23:53   27.03.03   
אל הפורום  
  צריך מספר תשובות לשאלות בפסקל:  
 
   שלום לכם אני צריך עזרה בשיעורים של הבית ספר אז הנה השאלות:

1. כתוב תוכנית שקולטת שני מספרים ומדפיסה אותם בסדר עולה.
2. כתוב תוכנית שקולטת שני מספרים. אם המספר הראשון גדול יותר יש להדפיס ריבוע של כל אחד מהנתונים, אחרת יש לעלות כל נתון בחזקה שלישית.
3. יש לקלוט סכום ההכנסות וההוצאות של חברה מסחרית. כתוב תוכנית שתחשב ותדפיס אם החברה הרוויחה או הפסידה ובאיזה סכום.
4. כתוב תוכנית שקולטת 3 ציונים. על התוכנית לחשב את הממוצע. אם הממוצע גדול מ-65 יש להדפיס אותו יחד עם ההודעה "עבר" אחרת יש להדפיס יחד עם ההודעה "נכשל".
5. כתוב תוכנית שקולטת 6 מספרים המהווים הכנסות של חנות במשך שבוע. יש להדפיס באיזו מחצית השבוע הייתה הכנסה גבוהה יותר ולהדפיס את סכום.

תודה אחים שלי לא חייב את כל התשובות אפשר אפילו אחת.
תודה שוב...!


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  קבל: Dudenland 28.03.03 12:08 1
     Oops... Dudenland 28.03.03 14:43 4
  תשובות בפסקל jossepe_4u  28.03.03 13:35 2
     תשובה ל5 jossepe_4u  28.03.03 14:40 3
         תודה אחים שלי!!!!!!!! xxSPIDERxx 29.03.03 05:21 5
             אתה רוצה להגיד שאתה יודע את כל זה בע''פ? xxSPIDERxx 29.03.03 05:33 6

       
Dudenland

   12:08   28.03.03   
אל הפורום  
  1. קבל:  
בתגובה להודעה מספר 0
 
  

#inlcude <stdio.h>

int main()
{
int a = 0, b = 0;

scanf("%d %d", &a, &b);
if(a > b)
printf("%d %d", a, b);
else
printf("%d %d", b, a);

return 0;
}


#inlcude <stdio.h>

int main()
{
int a = 0, b = 0;

scanf("%d %d", &a, &b);
if(a > b)
printf("%d %d", (a * a), (b * b));
else
printf("%d %d", (a * a * a), (b * b * b));

return 0;
}



#inlcude <stdio.h>

int main()
{
int a = 0, b = 0;

printf("הכנס הכנסות והוצאות:\n");
scanf("%d %d", &a, &b);
if(a > b)
printf(" החברה הרוויחה: %d", (a-b));
else
printf(" החברה הפסידה: %d", (b-a));

return 0;
}


#inlcude <stdio.h>

int main()
{
int a, i, avg;

for(i = 0, a = 0, avg = 0; i < 3; i++, avg += a)
scanf("%d", &a);
avg /= 3;
if(avg > 65)
printf("עבר - %d", avg);
else
printf("נכשל - %d", avg);

return 0;
}


#inlcude <stdio.h>

int main()
{
int a, i, sum1, sum2;

for(i = 0, a = 0, sum1 = 0; i < 3; i++, sum1 += a)
scanf("%d", &a);
for(i = 0, a = 0, sum2 = 0; i < 3; i++, sum2 += a)
scanf("%d", &a);
if(sum1 > sum2)
printf("מחצית ראשונה - %d", sum1);
else
printf("מחצית שנייה - %d", sum2);

return 0;
}

Dudenland


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Dudenland

   14:43   28.03.03   
אל הפורום  
  4. Oops...  
בתגובה להודעה מספר 1
 
   Sorry...

Dudenland


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
jossepe_4u 
חבר מתאריך 18.3.02
258 הודעות
   13:35   28.03.03   
אל הפורום  
  2. תשובות בפסקל  
בתגובה להודעה מספר 0
 
  

program tar1 (input,output);
Var
n1,n2:integer;
Begin
Writeln ('הכנס 2 מספרים');
Readln (n1,n2);
IF n1 > n2 Then
Writeln (n1,n2)
Else
Writeln (n2,n1);
End.

-------

program tar2 (input,output);
Var
n1,n2:integer;
Begin
Writeln ('הכנס 2 מספרים');
Readln (n1,n2);
IF n1 > n2 Then
Begin
n1:= n1 * n1;
n2:= n2 * n2;
writeln (n1,n2);
end
Else
Begin
n1:= n1*n1*n1;
n2:= n2*n2*n2;
writeln (n1,n2);
end;
End.

----

Program tar3 (input,output);
Var
n1,n2:real;
Begin
Writeln ('הכנס הכנסות והוצאות של חברה');
Readln (n1,n2);
IF (n1-n2)>0 Then
Writeln ('החברה הרויחה',n1-n2)
Else
Writeln ('החברה הפסידה',n2-n1);
End.

-------
 Program tar4 (input,output);
Var
n1,n2,n3:integer;
Begin
Writeln ('הכנס 3 ציונים');
Readln (n1,n2,n3);
IF ((n1+n2+n3)/3) >65 Then
Writeln ('עבר')
Else
Writeln ('נכשל');
End.

--------


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
jossepe_4u 
חבר מתאריך 18.3.02
258 הודעות
   14:40   28.03.03   
אל הפורום  
  3. תשובה ל5  
בתגובה להודעה מספר 2
 
  
 Program tar5;
Var
n1,n2,n3,n4,n5,n6:integer;
Begin
Writeln ('הכנס הכנסות של כל אחד מ6 ימים');
Readln (n1,n2,n3,n4,n5,n6);
IF (n1+n2+n3)>(n4+n5+n6) Then
Writeln ('מחצית ראשונה',n1+n2+n3)
Else
Writeln ('מחצית שניה', n4+n5+n6);
End.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
xxSPIDERxx

   05:21   29.03.03   
אל הפורום  
  5. תודה אחים שלי!!!!!!!!  
בתגובה להודעה מספר 3
 
  


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
xxSPIDERxx

   05:33   29.03.03   
אל הפורום  
  6. אתה רוצה להגיד שאתה יודע את כל זה בע''פ?  
בתגובה להודעה מספר 5
 
  


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net