View Full Version : Pascal..
Здравейте! :)
Трябва ми помощ за 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);
}
Благодаря много :-) :-) :-) :-) :-)
SolusChristus
10-27-2011, 19:09
Това е C++, не Pascal. :-D
Cybershot
10-27-2011, 19:18
Това е C++, не Pascal. :-D
Ако ми прочетеш коментара, пише че съм го дал на C, идеята е почти същата, има някои разлики по синтаксиса с Паскал само....
Знам, че това не е Паскал :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)
Много сте малки и не сте работили с Бейсик и Правец 82