Поступил на 1й курс и уже кидают такие задачки.

[абвгд]

Вообщем вот что кидают на первой паре по программированию. Никаких объяснений, сказали решайте.

В первой задачке значок П ни разу мне не встречался ни в школе, ни на занятиях к ЕГЭ.

Задача 74. Что за sign?

Объясните пожалуйста. Сдавать через неделю

п.с: подскажите литературу для новичков паскаля.

[Alex11223]

Литература сверху прикреплена тема в разделе Паскаль.

в 1 задаче буквой n обозначено число (скорее всего натуральное), которые видимо должен ввести пользователь и т.д. Задача вроде элементарно решается циклом for.

В 74 sign, это название функции с одним аргументом (а), которую ты должен написать. Если а < 0, то функция должна вернуть -1, если а = 0, то 0, если а > 0, то 1.

upd: ой, думал П это ты про n в самом условии 60 задачи, не заметил сверху.

[netrino]

Сообщение от абвгд

В первой задачке значок П ни разу мне не встречался ни в школе, ни на занятиях к ЕГЭ.

∏ - тоже самое, что и ∑, только не сумма, а произведение.
Подобные мат. символы очень удобно и просто перекладываются на циклы, даже читается примерно также (При k от 1 до n найти произведение выражений cos(k) => for k := 1 to n do acc := acc * cos(k); )

[onewho]

В первой задачке значок П ни разу мне не встречался ни в школе, ни на занятиях к ЕГЭ.

подобные символы должны объяснять на первых лекциях по матану
http://ru.wikipedia.org/wiki/%D0%A2%...BB%D0%BE%D0%B2

[wowsel]

я не совсем разобрался с условием задачи второй, там идёт 1*2 + 2*3*4+
почему 1*2+ а 2*3 не плюс а *4?

Если я правильно понял задачу, то решение примерное такое.

program project1;
 var n,i,summ:integer;
begin
   summ:=1;
   writeln('vvedite n');
   readln(n);
   for i:=2 to (n*2) do begin
   summ:=summ * i;
    end;
    writeln ('Summa = ',  (summ+2));
end.

писал на лазарусе под линуксом, но вроде удалил все его следы.
upd:
74 задача, вроде так:

program project1;
Function sign(a : real) : real;
Begin
    if a < 0 then sign:=-1
    else
      if a>0 then sign:=1
    else sign:=0
End;
var i:integer;
  z,x,y:real;
begin
write('Vvedite x: ');
readln(x);
write('Vvedite y: ');
readln(y);
z:=(sign(x)+sign(y))*sign(x+y);
writeln('z = ' , z:1:2);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[doober]

wowsel я с вами не согласен.

В Vb будет выглядеть так

Sub Test()
s_umm = 0
For i = 1 To n
s_umm1 = 1
For m = i To 2 * i
s_umm1 = s_umm1 * m
Next
s_umm = s_umm + s_umm1
Next
msgbox "Результат равен " & s_umm 
End Sub

[wowsel]

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

wowsel я с вами не согласен.

В Vb будет выглядеть так

Sub Test()
s_umm = 0
For i = 1 To n
s_umm1 = 1
For m = i To 2 * i
s_umm1 = s_umm1 * m
Next
s_umm = s_umm + s_umm1
Next
msgbox "Результат равен " & s_umm 
End Sub

Спасибо, я ещё пытаюсь познать азы программирования. К сожаления с vb не знаком, работаю только в лазарусе. Мечтаю изучить с++, но никак не дойду.

[Serge_Bliznykov]

wowsel, 74 задачу согласен с Вашим решением.

А вот для задачи №60 Ваш вариант неверен.
Правильный вариант предложил doober.
на Паскале он будет выглядеть так же (почти) как и на бейсике:

program z60;
 var n, i, k, mult_t, summ : longint;
begin
   summ:=0;
   writeln('vvedite n');
   readln(n);
   for i:=1 to n do begin
     mult_t := 1;
     for k:=i to 2*i do
        mult_t := mult_t * k;
     summ := summ + mult_t;
   end;
   writeln ('Summa = ',  summ);
   readln;
end.

функция растёт очень быстро, уже при n=7 результат равен 125230946
больше не хватает разрядности longint'a.
если нужно считать функцию для больших значений n нужно использовать вещественный тип данных для вычисления произведения и накопления суммы...

 var n, i, k : integer;
     mult_t, summ : extended;

[абвгд]

Спасибо всем =)
А как в 60й задаче блок-схема будет выглядеть?

[Alex11223]

Процедуры\функцию вроде как-то обозначаются (ну значок и в нем только название) и где-нибудь рядом отдельная схема самой функции. В гугле\википедии есть.