Pascal..

[IvcHe7y]

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

[Cybershot]

Здравейте!
Трябва ми помощ за 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]

Благодаря много

[SolusChristus]

Това е C++, не Pascal.

[Cybershot]

Това е C++, не Pascal.

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

[IvcHe7y]

Знам, че това не е Паскал на мен ми трябваше само идеята .. синтаксиса го знам Още веднъж благодаря на Cybershot

[SolusChristus]

Я да видим дали помня паскала...

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]

Я да видим дали помня паскала...

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]

Я да видим дали помня паскала...

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]

z := -13.2*x*x+3.15*(x-y)-3.15;

[SolusChristus]

z := -13.2*x*x+3.15*(x-y)-3.15;

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

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

[Cybershot]

Аз много го мразех тоя Паскал, напомняше ми на дос много (puke)

[SolusChristus]

Аз много го мразех тоя Паскал, напомняше ми на дос много (puke)

CLI > GUI any day.

Много сте малки и не сте работили с Бейсик и Правец 82