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

1. Написать программу решения следующей задачи, используя модуль: Определить среднюю высоту полёта аэростата, если четыре измерения температуры и давления дали результаты соответственно T1, T2, T3, T4 и P1, P2, P3, P4. барометрическая формула:h=18400*T*((lg(P0\P))\T0) , где P0=760 мм рт. ст., T0=273,15 К.

2. даны два действительных числа x и y. вычислить их сумму, разность,произведение и частное.

3. Помогите пожалуйста написать задачу в паскале
   Задание: найдите полупроизвидение всех положительных элементов массива
   Пожалуйста, срочно нужно!

4. p:=0.5;
   for i:=1 to n do
   begin
   if (a[i]>0) then
   p:=p*a[i];
   end;

   writeln(p);

5. Помогите пожалуйста переделать задачу.
   Programm Distance;
   Var x1,x2,y1,y2,D: Real;
   Begin
   Writeln ('введи координаты первой точки');
   Readln(x1,y1);
   Writeln('введи координаты второй точки');
   Readln(x2,y2);
   D:= Sgrt(sgr(x2-x1)+Sgr(y2+y1));
   Writeln ('расстояние между точками=',D:2:2);
   end;
   Нужно переделать в процедуру с параметром
   Пожалуйста, срочно нужно!

6. procedure proc(var D:real);
   Var x1,x2,y1,y2: Real;
   Begin
   Writeln ('введи координаты первой точки');
   Readln(x1,y1);
   Writeln('введи координаты второй точки');
   Readln(x2,y2);
   D:= Sgrt(sgr(x2-x1)+Sgr(y2+y1));
   end;

   var d:real;
   begin
   proc(d);
   Writeln ('расстояние между точками=',d:2:2);
   end.

7. Помогите найти ошибку
   var i,n:integer;
   r:real;
   begin
   readln(n);
   r:=0;
   for i:=1 to n do
   begin
   r:=sqrt(r+2);
   end;
   writeln(r:3:4);
   readln;
   end.
   Вот условие Дано натуральное число n.Вычислить √((2+√((2+..√2) ..)) ) из n корней

8. с чего вы взяли, что есть ошибка?

9. Программа не запускается.Нужно присвоить какое-то значение n?

10. приведите текст ошибки, о которой говорит компилятор, или скрин. В программе n вводится с клавиатуры командой readln(n)

11. http://cs622230.vk.me/v622230940/65e1/YEke7B6Qpq0.jpg (условие)
    Не могу понять этот 11 вариант, как правильно задать всё это, чтобы вычитало, постоянно ошибки какие-то при отладке возникают. Сначала получилось такое дело:

    Sub Main()
    Dim y(15), x(15), S As Single, i, j As Single
    For i = 1 To 15
    y(i) = 1
    Next i
    S = S + y(i)
    For j = 1 To 15
    x(j) = 1
    Next j
    S = S + x(j)
    Console.WriteLine(Format(y(i), " 0.000") & Format(x(j), "0.000 "))
    Console.WriteLine("S= " & S.ToString())
    End Sub

    После небольшой консультации и порции советов получилось это:

    Sub Main()
    Const n = 15
    Dim y(n), x(n), S As Single, i, j As Single
    For i = 1 To 15
    Console.WriteLine(i.ToString())
    Next i
    S = 0
    For j = 1 To 15
    Console.WriteLine(j.ToString())
    Next j
    S = 0
    S = S + y(i) + x(j)
    Console.WriteLine("S= " & S.ToString())
    End Sub

    Работать это ни в какую не хочет, что в общем-то ожидаемо, так как я только недавно этим делом занялся. Очень прошу помощи, задание весьма важное.

12. строчка S = S + y(i) должна быть до Next i а S = S + x(j) до Next j

13. Тогда сейчас получается у меня такое дело:

    Sub Main()
    Dim S As Single, i, j As Integer
    Dim y() As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
    Dim x() As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
    For i = 1 To 15
    y(i) = 1
    S = S + y(i)
    Next i
    For j = 1 To 15
    x(j) = 1
    S = S + x(j)
    Next j
    S = S + y(i) + x(j)
    Console.WriteLine(Format(y(i), " 0.000") & Format(x(j), "0.000 "))
    Console.WriteLine("S= " & S.ToString())
    End Sub

    Но получается это: http://i.imgur.com/GoBuvVG.png
    Как с этим быть?

14. S = S + y(i) + x(j) должно быть в цикле

15. эм, немного не понял, то есть вот так:

    Sub Main()
    Dim S As Single, i, j As Integer
    Dim y() As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
    Dim x() As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
    For i = 1 To 15
    y(i) = 1
    S = S + y(i)
    S = S + y(i) + x(j)
    Next i
    For j = 1 To 15
    x(j) = 1
    S = S + x(j)
    S = S + y(i) + x(j)
    Next j
    Console.WriteLine(Format(y(i), " 0.000") & Format(x(j), "0.000 "))
    Console.WriteLine("S= " & S.ToString())
    End Sub

    ??
    И какого лешего оно хочет с этой ошибкой "Индекс находится вне границ массива"?