PDA

View Full Version : Pascal..



IvcHe7y
10-27-2011, 17:40
Здравейте! :)
Трябва ми помощ за 2 задачи
1.Да се напише програма,която въвежда от клавиатурата стойност за x и y и изчислява и извежда стойността на израза: -13,2x (x е на квадрат) + 3,15(x-y) -3,5.
2.Да се състави програма,която въвежда от клавиатурата размерите на правилна четириъгълна призма.Да се намери и изведе лицето и обемът на призма с 2 пъти по-малки размери.
Моля..помогнете ;(

Cybershot
10-27-2011, 18:13
Здравейте! :)
Трябва ми помощ за 2 задачи
1.Да се напише програма,която въвежда от клавиатурата стойност за x и y и изчислява и извежда стойността на израза: -13,2x (x е на квадрат) + 3,15(x-y) -3,5.
2.Да се състави програма,която въвежда от клавиатурата размерите на правилна четириъгълна призма.Да се намери и изведе лицето и обемът на призма с 2 пъти по-малки размери.
Моля..помогнете ;(

Не помня как е точно синтаксиса на Паскал, но мога да ти ги напиша за C, идеята е 1:1, само синтаксиса ще е различен.


#include <stdio.h>
int main()
{
float x,y,rezultat;
printf("x=");
scanf("%f",&x);
printf("y=");
scanf("%f",&y);
rezultat=-13.2*x*x+3.15*(x-y)-3.15;
printf("otgovora=%f",rezultat);
}



#include <stdio.h>
int main()
{
float a,h,p,s;
printf("a=");
scanf("%f",&a);
printf("h=");
scanf("%f",&h);
a=a/2;
h=h/2;
s=4*a*h;
s=2*a*a+s;
printf("s=%f",s);
}

IvcHe7y
10-27-2011, 18:42
Благодаря много :-) :-) :-) :-) :-)

SolusChristus
10-27-2011, 19:09
Това е C++, не Pascal. :-D

Cybershot
10-27-2011, 19:18
Това е C++, не Pascal. :-D

Ако ми прочетеш коментара, пише че съм го дал на C, идеята е почти същата, има някои разлики по синтаксиса с Паскал само....

IvcHe7y
10-27-2011, 19:24
Знам, че това не е Паскал :D на мен ми трябваше само идеята .. синтаксиса го знам :-D Още веднъж благодаря на Cybershot :)

SolusChristus
10-27-2011, 19:28
Я да видим дали помня паскала...




program trololo;
var x,y,z : real;
begin
Write("Simple Pascal calculator");
Writeln("Enter x: ");Readln(x);
Writeln("Enter y: ");Readln(y);
z := (-13.2*x*x)+(3.15*(x-y)-3.15)
Writeln("Result: ");
Readln;
end.


Сега ще го пробвам.. :)

Cybershot
10-27-2011, 19:31
Я да видим дали помня паскала...




program trololo;
var x,y,z : real;
begin
Write("Simple Pascal calculator");
Writeln("Enter x: ");Readln(x);
Writeln("Enter y: ");Readln(y);
z := (-13.2*x*x)+(3.15*(x-y)-3.15)
Writeln("Result: ");
Readln;
end.


Сега ще го пробвам.. :)

Никъде не декларираш "z" на изхода.

SolusChristus
10-27-2011, 19:40
Я да видим дали помня паскала...




program trololo;
var x,y,z : real;
begin
Write("Simple Pascal calculator");
Writeln("Enter x: ");Readln(x);
Writeln("Enter y: ");Readln(y);
z := (-13.2*x*x)+(3.15*(x-y)-3.15)
Writeln("Result: ");
Readln;
end.


Сега ще го пробвам.. :)

Никъде не декларираш "z" на изхода.

Да, усетих се. :P




program calculate;
var x,y,z : real;
begin
Write('Simple Pascal calculator');
Write('Enter x: ');Readln(x);
Write('Enter y: ');Readln(y);
z := -13.2*x*x+3.15*x-y-3.5;
Writeln('Result: ', z);
Readln;
end.

Това компилира и работи. :)

Cybershot
10-27-2011, 19:41
z := -13.2*x*x+3.15*(x-y)-3.15;

SolusChristus
10-27-2011, 19:44
z := -13.2*x*x+3.15*(x-y)-3.15;

Не искаше със скоби, и съм сгафил последното число.

Паскал последно съм ползвал в десети клас, преди... 5 години. :-D

Cybershot
10-27-2011, 19:48
Аз много го мразех тоя Паскал, напомняше ми на дос много (puke)

SolusChristus
10-27-2011, 19:50
Аз много го мразех тоя Паскал, напомняше ми на дос много (puke)

CLI > GUI any day. 8)

10-28-2011, 05:54
Много сте малки и не сте работили с Бейсик и Правец 82