Информатика

[LoLa:):):)]

Здр. искам да помоля някой ако разбира от алгоритми и е в 9 клас ,ако може да ми реши задачите,защото ми трябват за вторник.
Ето и задачите

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

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

3.Напишете програма за намиране сумата S=х+х/2+х/3+....+х/n,n<= 200,
като х и n се въвеждат от клавиетурата.
Благодаря предварително.

[wertyusa-f]

1.
dim h, r,pi,S as single
Input "h=",h
Input "r=", r
input"pi=", pi (въвежда се 3.14)
S=2*pi*r*h
Print "S=", S


2.
DIM x as integer
Input "x=",x
If x mod 2 = 0 then
Print "4isloto e 4etno"
end if


3, не мога да се досетя...
Дано решените 2 са така..аз не знам вие как ги решавате, блок-схемно или на qbasic зависи..Не съм много убедена, но пак е вариант.

[Jessika_MG]

1.
dim h, r,pi,S as single
Input "h=",h
Input "r=", r
input"pi=", pi (въвежда се 3.14)
S=2*pi*r*h
Print "S=", S


2.
DIM x as integer
Input "x=",x
If x mod 2 = 0 then
Print "4isloto e 4etno"
end if


3, не мога да се досетя...
Дано решените 2 са така..аз не знам вие как ги решавате, блок-схемно или на qbasic зависи..Не съм много убедена, но пак е вариант.

А тези на какъв език са?

[wertyusa-f]

Ами тези се решават блок-схемно и извлечено от блок-схемно решение така се записва, или по-точно разписва.На qbasic излиза решението.

[LoLa:):):)]

мерси за отговора но нии не ги решаваме по този начин.
Ето примерна задача:
S=? , ha=? , S=a*ha/2

Var a:integer , S:rea;
h:real;
Begin
read (a,h)
S=(a+h)/2
Дано да сте разбра ли

Program zilinder;
const pi=3.14;
var s, h, r: real;
begin
wtite('vyvedete h');readl(h);
write('vyvedete r');readl(r);
s:=2*pi*r*h;
writeln('ok. povyrhnina e s=',s);
end.

program chetnost;
var x:integer;
begin
write('vivedi x'); readln(x);
if (amod2)=0 then write(' chetno e') else write ('ne4etno');
end.

zna4i poslednite 2 gi napisah na pascal, zashtoto ne mi stana qsno ot dadeniq primer to4no na kkayv ezik gi pishete, no nai mi prili4a na pascal.dano sym ti pomognala

[LoLa:):):)]

на паскал са много ти благодаря.

Program sum;
var i,x,n:integer;
sum:real;
begin
write('vyvedete n<=200);readln(n);
write('vyvedete x');readln(x);
s:=0;
if n<=200 then begin
for i=1 to n do
sum:=sum+x/i;
end
else write('Nekorektno vyvedeno n');
write('Sumata e',sum);
end.
Tova e i poslednata programa, dano ti svyrshat rabota

[LoLa:):):)]

много ти благодаря отново др.седмица ще разбера дали са верни и ще пиша