серия задач паскаль

[Alexspirit]

Ребят, я сам дуб дубом в программировании, девушке надо решить несколько задачек, выручайте как можете, язык программирования-паскаль, заранее спасибо =)

Точечный рисунок.JPG

[Alexspirit]

ап, помогите плз(( ну хоть несколько задач, надо сделать до пятницы ((

[Serge_Bliznykov]

смотрите, у Вас три способа.
1-й. самый быстрый и надёжный, но самый затратный. Обращаетесь в раздел Фриланса. Вам делают все ваши задачи. Вы платите деньги. Получаете решения.

2-й. самый лучший, но и самый трудный и долгий - разбираетесь, учите язык, находите похожие задачи, разбираете, как они решены, по аналогии пишете решение. Если возникают сложности/трудности - задаёте их в теме на форуме, Вам помогают.
Преимущество этого способа в том, что Вы мало того, что получаете решения абсолютно бесплатно, кроме того, Вы сами учитесь программировать, т.е. на экзамене/контрольной Вы сможете самостоятельно написать программу.

3-й способ. Ожидать чудес и ждать готовых решений. Может быть, кто-то добрый и не совсем ленивый, мог бы написать Вам готовые решения абсолютно бесплатно. Разумеется, в этом случае, как и в первом способе (через фриланс) Вы бы не получили навыков и знаний.

Каким способом воспользоваться - решать Вам.

Успехов в учёбе.

p.s. что, Вам даже задания набрать в тексте лень?! ну-ну..

[MooNDeaR]

Если до пятницы, то 800 руб. и задачи ваши
Сроки так-то поджимают

P.S.
Так-то задачки от силы на полчаса-час. В зависимости от скорости печатанья.

[Mad_Cat]

ну хоть несколько задач, надо сделать до пятницы

2)

var M,y,n,x:integer;
begin
Readln(n,m,x,y);
if n div x< m div y  then writeln(n div x)
else writeln (m div y);
end.

1)

var
v,r,s:real;
begin
readln(v);
r:=exp(1/3*ln(v));
S:=6*r*r;
writeln('pe6po:',r);
Writeln('nJIow,agb:',S);
end.

3)

var
a:array[1..20] of real;
i,j,n:integer;
s:real;
begin
readln(n);
randomize;s:=0;i:=0;
for i:=1 to n do
begin
a[i]:=random(n*n);
if i mod 2 =0 then begin inc(j);s:=s+a[i];end;
write(a[i]:6:2);
end;
writeln;
writeln('Avg ',s/j:6:2);
end.

4)

var
a:array[1..20,1..20] of real;
i,j,k,n:integer;
s:real;
begin
readln(n);
randomize;s:=0;i:=0;
for i:=1 to n do begin
for j:=1 to n do
begin
a[i,j]:=random(n*n);
write(a[i,j]:6:2);
end;
writeln;
end;
for j:=1 to n do begin
k:=1;
for i:=1 to n do
if a[i,j]<a[k,j] then k:=i;
a[j,j]:=a[j,j]+a[k,j];
a[k,j]:=a[j,j]-a[k,j];
a[j,j]:=a[j,j]-a[k,j];

end;
writeln('======================');
 for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:6:2);
writeln;
end;
end.

5)

const sogl='БВГДЖЗКЛМНПРСТФХЦЧШЩбвгджзклмнпрстфхцчшщ';
var s:string;
    c,i:integer;
begin
readln(s); c:=0;
s:=s+' ';
for i:=1 to Length(s)-1;
if (pos(s[i],sogl)<>0) and (s[i+1]=' ') then inc(c);
writeln(c);
end.

[MooNDeaR]

Alexspirit, поздравляю. Чудо произошло

[whatever]

И пришел Mad_Cat, и решил задачи, и наступила тишина... Лишь только корыстные фрилансеры скрипели зубами...

p.s. никаких обид, я не серьезно

[Mad_Cat]

Лишь только корыстные фрилансеры скрипели зубами...

Mad_cat - такой же корыстный фрилансер)
только 800 р за эти задачки (~20 мин) имхо очень уж много)
цена им красная 5$ максимум(со всеми красивостями в оформлении)

[Alexspirit]

Сообщение от Mad_Cat

Mad_cat - такой же корыстный фрилансер)
только 800 р за эти задачки (~20 мин) имхо очень уж много)
цена им красная 5$ максимум(со всеми красивостями в оформлении)

за решение спасибо, 5$ вышлю, щас на работе сутками, не могу сбегать денег кинуть, ждите в скором времени, мб на выходных, еще раз спасибо))))

[Serge_Bliznykov]

всё решения на мой взгляд нормальные.
маленькие поправочки.

a)
в задаче №3

randomize;s:=0;i:=0;
for i:=1 to n do
begin

тоже самое в задаче №4

randomize;s:=0;i:=0;
for i:=1 to n do begin

помеченное красным - удалить напрочь. Это опечатка. Ошибки не будет.
Но и смысла в данном операторе нет никакого.

b) в задаче №3 и №4 числа всегда будут случайными ЦЕЛЫМИ (т.е. дробная часть у них всегда будет равна нулю. Выводить два знака после запятой можно, но там ничего кроме нулей не будет.

с) обмен элементов в задаче №4.
категорически. нет. даже так: КАТЕГОРИЧЕСКИ не рекомендую использовать подобные "хакерские" "хитрые" трюки.
Если нужно обменять два элемента местами, пользуйтесь дополнительной переменной. Это обеспечит НАДЁЖНОЕ решиние, которое не зависит от типа переменной и от их содержимого!
вместо

a[j,j]:=a[j,j]+a[k,j];
a[k,j]:=a[j,j]-a[k,j];
a[j,j]:=a[j,j]-a[k,j];

рекомендую код:

if k<>j then begin
  s := a[j,j];
  a[j,j] := a[k,j];
  a[k,j] := s;
end;