Форум » Програмиране и web-дизайн » Помагайте за написването на една програмка на Паскал!

anonymous

Чет, 15.10.09, 13:33

Добър ден! Надявам се, че тук има разбиращ поне мъничко от програмиране, готов да ми помогне. Трябва да напиша за петък една проста програмка на Паскал за домашно. Снимах доколкото можах условието от тетрадката, но не се вижда много, както виждате от следните снимки(...) :

http://img101.imageshack.us/img101/4189/13614967.png
http://img210.imageshack.us/img210/8955/10066623.png
http://img207.imageshack.us/img207/5910/35831844.png
http://img339.imageshack.us/img339/749/49913053.png
http://img390.imageshack.us/img390/7087/34068569.png

Ще го обясня и словесно: Трябва да подканим потребителят да въведе стойност за x и y и ако х>0 и у<0, тогава Z трябва да присвоява 1-ху *върху* (дробна черта) 1-ху. Ако х>0 и у>0, тогава Z присвоява 1-ху върху корен квадратен от (1-ху). И Z=1 - във всички останали случаи.

Ще съм благодарен, ако някой ми каже как ще се напише това чудо! :) Приятен ден! :)

angelicstar

Чет, 15.10.09, 18:02

RE: Помагайте за написването на една програмка на Паскал!

Цитат на anonymous от Четвъртък, 15.10.2009 13:33

” Добър ден! Надявам се, че тук има разбиращ поне мъничко от програмиране, готов да ми помогне. Трябва да напиша за петък една проста програмка на Паскал за домашно. Снимах доколкото можах условието от тетрадката, но не се вижда много, както виждате от следните снимки(...) :

http://img101.imageshack.us/img101/4189/13614967.png
http://img210.imageshack.us/img210/8955/10066623.png
http://img207.imageshack.us/img207/5910/35831844.png
http://img339.imageshack.us/img339/749/49913053.png
http://img390.imageshack.us/img390/7087/34068569.png

Ще го обясня и словесно: Трябва да подканим потребителят да въведе стойност за x и y и ако х>0 и у<0, тогава Z трябва да присвоява 1-ху *върху* (дробна черта) 1-ху. Ако х>0 и у>0, тогава Z присвоява 1-ху върху корен квадратен от (1-ху). И Z=1 - във всички останали случаи.

Ще съм благодарен, ако някой ми каже как ще се напише това чудо! :) Приятен ден! :) „

Program prog;
 
var x, y, z : real;
 
begin
   writeln ( 'Input two values for x and y:' );
   read ( x , y );
   z := 1;
   if ( x > 0 ) and ( y < 0 ) then z := ( 1 - x*y ) /                ... dopisvay si go
   if ( x > 0 ) and ( y >0 ) then z :=                                    ... dopisvay si go
   writeln ( z );
end.

Ами това ти е долу-горе. Нямам паскал да го изпиша цялото и да го тествам. Ама и ти нещо трябва да свършиш нали.

anonymous

Чет, 15.10.09, 18:25

Сърдечно ти благодаря!