Комментариев 211 к “Бесплатная помощь по программированию”

1. можете написать мне...я не понимаю эхсел

2. Пусть X[0]=с; X[1]=d; X[k]=q*X[k-1]+r*X[k-2]+b, k=2,3,… Вычислить значение X[15].
   Помогите решить в дельфи срочно

3. readln(c);
   readln(d);
   readln(q);
   readln(r);
   readln(b);
   X[0]:=c;
   X[1]:=d;
   for i:=2 to 15 do
   X[i]:=q*X[i-1]+r*X[i-2]+b;

   writeln(X[15]);

4. Помогите сделать программу на delphi:
   )в одномерном массиве C, максимальные элементы возвести в квадрат

5. max:=a[1];
   for i:=1 to n do
   if (a[i]>max) then
   max:=a[i];
   for i:=1 to n do
   if (a[i]=max)
   a[i]:=a[i]*a[i];

6. дан массив x(n), где n-четное. сформировать два массива размером n/2. первый состоит из элементов исходного массива с четными индексами, а второй с нечетными.
   pascalABC

7. i1:=1;
   j1:=1;
   for i:=1 to n do
   begin
   if (i mod 2 = 0) then
   begin
   y[i1]:=x[i];
   i1:=i1+1;
   end
   else
   begin
   z[i2]:=x[i];
   i2:=i2+1;
   end;
   end;

8. Матрица А, в каждой строке минимальный элемент поменять местами с первым элементом. delphi

9. Добрый вечер, помогите пожалуйста с задачкой.
   Вывести на экран количество переменных меньших(больших) значения переменной (к). Язык Паскаль.

10. var a:array[1..100] of integer;
    n:integer;
    i,count,k:integer;
    begin
    readln(n); // количество элементов массива
    readln(k);

    for i:=1 to n do //ввод чисел с клавиатуры
    readln(a[i]);

    count:=0;
    for i:=1 to n do
    if (a[i] < k) then count:=count+1; writeln(count); end.

11. Спасибо!

12. идея написать что-то между Phun и The Powder Toy поможете? почта 1991semen@mail.ru

13. извините, участвовать откажусь

14. угу

15. Добрый день. Прошу исправить ошибку в коде. В целом все правильно, но меня интересует то, чтобы при изменении положения линии старая линия стиралась.
    #include
    #include
    void Draw (int x, int y, int color)
    {
    setfillstyle (1,color);
    line(0,0,x+10,y+10);
    }
    int main()
    {
    int x=0;
    int y=0;
    initwindow (500,500);
    char code;
    setfillstyle(1,COLOR(0,0,255));
    circle (400,400,80);
    while (1)
    {
    Draw (x+200, y+200, 50);
    code=getch();
    if (code==27) break;
    Draw (x+200, y+200, 50);
    setcolor(0);
    line(0,0,x+10,y+10);
    setcolor(COLOR(255,255,255));
    switch (code){
    case 75: x--; break;
    case 77: x++; break;
    case 72: y--; break;
    case 80: y++; break;
    }
    }
    closegraph();
    getch();
    }