Създаване на програмки на ПАСКАЛ

[Dzver]

това са задачите.. не разбирам грам от ПАСКАЛ, не са за мен, а за една приятелка.

 

1. Напишете програма, която да изчислява и извежда резултата на околната повърхнина на цилиндър, ако знаете височината(Н) и радиоуса (Р) на основата S=2пRH

 

2. Напишете програма, която проверява дали въведеното число Х от клавиатурата е четно.

 

3. Напишете програма за намиране сумата S= X+ x2/2 + x3/3 + ... +xn/n като n=200 и "х" и "n" се въвеждат от клавиатурата

 

х2/2 (х3/3, хn/n) - това е "х" на втора степен върху 2.

[The AnGeL]

Програмките са доста елемнтарни, не знам защо момичето не може да се оправи с тях. Трябва да знае само най-най-най базовите неща за програмиране на Паскал (все едно да може да събира 2 и 2, толкова е лесно). Принципно бих написал само какъв е алгоритъма, но така или иначе задачите са елементарни, та за 5 минути се разтърсих из гугъл за синтаксиса на Паскал и реших да ги напиша. Не са пробвани, трябва сами да оправяте грешките

 

 

 

I. Алгоритъм:

 

1. Въвеждане на R и H.

 

2. Изчисляване по формулата

 

3. Извеждане на резултата

 

 

 

Коментар: елементарно използване на аритметични операции

 

 

 

program povurhnina;

const

Pi=3.14;

var

S, R, H: real;

begin

write('Vuvedete radiusa: ');

readln(R);

write('Vuvedete visochinata: ');

readln(H);

S:=2*Pi*R*H;

writeln('S=', S);

end.

 

 

 

 

 

II. Алгоритъм:

 

1. Въвеждане на числото

 

2. Проверка дали остатъка при деление с 2 е 1 или 0

 

3. Ако е 1 - нечетно, иначе е четно

 

4. Извеждане на резултата

 

 

 

Коментар: упражнение за използване на if 

 

 

 

program proverka;

var

x: integer;

begin

readln(x);

if x mod 2 == 1

then writeln('Nechetno');

else writeln('Chetno');

end.

 

 

 

 

III. Алгоритъм

 

1. Въвеждане на x и n

 

2. i=1, S=0

 

3. Ако i>n отиди на стъпка 6.

 

4. S=S+x^i/i

 

5. i=i+1, отиди на стъпка 3.

 

6. Извеждане на S

 

 

 

Коментар: упражнение за използване на цикъл

 

 

 

program suma;

var

x, n, i: integer;

s: real;

begin

write('X='); readln(x);

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+exp(i*Ln(x))/i;

writeln('S=', s);

end.

 

 

 

 

 

Пак казвам, че синтаксиса на Паскал съм го прегледал точно за 5 минути и може да има големи грешки. Целта, в случая, е само да ви насоча какво трябва да се направи.

 

Успех.