PDA

Виж пълна версия : Трябва ми помощ с едни задачи от училище (Pascal)

Xenn
04.06.07 г., 15:28
Здравейте , дадоха ни задачи от училище за годишна оценка самоче нещо немога да ги реша на паскал Ако може да ми помогните с задачите..Ето ги:
http://xerron.data.bg/Scan0002.bmp

Имам ги решени на C++ самоче немога да ги преведа на Паскал.Ето задачите решени на C++ :

==================1=============
cout << "vuvedete x\n";
int x;
cin >> x;
int y,z;
y = 2*x*x + 4;
z = 3*x + sqrt(x+1);
cout << "y = " << y << endl;
cout << "z = " << z << endl;
temp = y;
y = z;
z = temp;
cout << "y = " << y << endl;
cout << "z = " << z << endl;
==================2=============
int S = 0;
for(int i = 1; i <= 20; i++)
if( i % 2 == 1 ) S+= i;
cout << "S = " << S << endl;
==================3==============
double S = 0;
for(int k = 100; K <= 250; k++)
S+= 1 / (k*k-10)*(k*k-10)*(k*k-10)*sqrt(2k);
cout << "S = " << S << endl;


Всяка помощ ще е добре. Благодаря предварително
icaci
04.06.07 г., 15:49
Заместваш "=" с ":=" в присвояванията, "cout << a << b << c << endl" с "WriteLn(a,b,c)", "cin >> a" с "ReadLn(a)". Изнасяш променливите в блок "var", заменяш "int" с "Integer", "double" с "Double", "x += y" с "Incr(x, y)", "for(x = x0; x < x1; x++)" със "for x := x0 to x1 do", "if (a == b)" с "if a = b then", "a % b" с "Mod(a,b)".
След това си намираш книга по Pascal, прочиташ я и от парченцата "преведен" код сглобяваш работеща програма.

П.П. Не очаквай готови решения тук. Политиката е да не се дават такива, а да се помага на питащите сами да стигнат до решението.
MFrost
04.06.07 г., 16:07
Малка поправка на icaci: не Incr(x,y), a Inc(x,y), като при това не всички компилатори го познават - по-добре x:=x+y; И освен това не Mod(a,b), а a mod b;
И да, тук готови решения абсурд... Ако покажеш, че си опитал да напишеш нещо, тогава вече е друга работа...
icaci
04.06.07 г., 16:47
Многото FORTRAN явно ми влияе лошо - позабравил съм П(р)аскала ;)
Xenn
11.06.07 г., 02:44
Нямах интернет 4 дена :(
ето какво направих самоче ми дава грешки на някой места:

program lol;
Var
y,z,x:integer;
readln(x);
y:=2*x*x+4;
z:=3*x+sqrt(x+1)
temp=y;
y:=z;
z=temp;
writeln('y=',y);
writeln('z=',z);
End.

program lol2;
Var
s,x:integer;
Begin
for x:=1 to 20 do;
if (x % 2 = 1) S+=1;
writenl('s=',s:4:2);
end.

program lol3;
Var
s:real;
begin
Double(s=0);
for k:=100 to 250 do;
S:=1/(k*k-10)*(k*k-10)*(k*k-10)*sqrt(2k);
writenl('s=',s:4:2)
end.

Кажете къде правя грешки.Благодаря предварително
icaci
11.06.07 г., 15:24
Нямах интернет 4 дена :(
ето какво направих самоче ми дава грешки на някой места:

program lol;
Var
y,z,x:integer;
readln(x);
y:=2*x*x+4;
z:=3*x+sqrt(x+1);
temp:=y;
y:=z;
z:=temp;
writeln('y=',y);
writeln('z=',z);
End.

program lol2;
Var
s,x:integer;
Begin
for x:=1 to 20 do <-- няма ";"
if (x mod 2 = 1) S := S + 1;
writenl('s=',s:4:2);
end.

program lol3;
Var
s:real;
begin
s := 0.0;
for k:=100 to 250 do <-- няма ";"
S:=S + 1/((k*k-10)*(k*k-10)*(k*k-10)*sqrt(2*k));
writeln('s=',s:4:2)
end.

Кажете къде правя грешки.Благодаря предварително
Грешките ти са удебелени.
Xenn
11.06.07 г., 21:21
program lol2;
var
s:integer;
i:integer;
Begin
s:=1;
for i:=1 to 20 do
S:=(s+2)*i;
writeln('s=',s:0)
end.

program lol3;
var
k:integer;
S:real;
Begin
s:=0;
fork k:=100 to 250 do
S:=s+1/((k*k-10)*(k*k-10)*(k*k-10)*sqrt(2*k));
writeln('s=',s:0:2)
end.

ето 2ра и 3та задача решени най-накрая ги написах :) и работят проверих ги в Pascal-a..Самоче 1вата задача нещо немога да я направя моля помогнете :( :*(
entium
12.06.07 г., 11:04
Първата задача си изтървал един begin в началото след integer; а също вместо x*x може да ползваш sqr(x).
Xenn
12.06.07 г., 13:46
program lol;
Var
y,z,x:integer;
begin
readln(x);
y:=3*sqr(x)+4;
z:=3*x+sqrt(x+1);
temp:=y;
y:=z;
z:=temp;
writeln('y=',y);
writeln('z=',z);
end.

ето я задачата самоче на този ред ( z:=3*x+sqrt(x+1); ) ми дава грешка error 26 :type mismatch . Какво да правя?
icaci
12.06.07 г., 17:20
Замени integer с Double или Real.
Xenn
12.06.07 г., 21:02
момчета оправих се , благодаря на тези който се опитаха да помогнат.Ето и решена задачата:

program lol;
Var
a,y,z,x:real;
begin
readln(x);
y:=3*sqr(x)+4;
z:=3*x+sqrt(x+1);
writeln('y=',y);
writeln('z=',z);
begin
a:=z;
z:=y;
y:=a;
writeln('y=',y);
writeln('z=',z);
end;
end.
icaci
12.06.07 г., 21:42
А каква е тайната и не особено видима причина, поради която си използвал този допълнителен begin/end блок вътре в главния?