Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Пересчитать скорость, заданную в км/ч в скорость, заданную в м/c

Написать Функцию, пересчитывающую скорость, заданную в км/ч в скорость, заданную в м/c.

(За ранние огромное спасибо!!!)
Ответ:
Код Pascal
1
2
3
4
function KmToM(v: double): double;
begin
  KmToM := v / 3.6
end;
В километре 1000 метров. В часе 3600 секунд. Скорость в км/ч умножить на 1000 и разделить на 3600.

Не по теме:

Ложечку за папу, ложечку за маму...

Вопрос: Распределение Максвелла: найти начальную скорость частицы по заданной вероятности

Здравствуйте. Я не совсем уверен, в нужном ли месте создал тему...
Задача у меня такая: из печи вылетают частицы, скорость которых распределена по закону Максвелла. Я промоделировал распределение М. и записал в файл скорости и вероятности появления этих скоростей. Начальной скорости частицы соответствует какая-то вероятность. Далее я пытаюсь промоделировать СВ, сравнить эту СВ с вероятностями из файла, если СВ ровна или близка к какой-то вероятности из файла, то начальная скорость частицы есть скорость, которой соответствует равной или близкой вероятности из файла. Но, к сожалению, у меня не получается это сделать. Буду признателен за идеи
Ответ: Поставлена задача:
подготовить данные о моделируемом распределении, записать в файл; написать программу, которая максимально быстро генерирует случайную величину с некоторой конечной точностью, распределенную по максвеллу, имея в наличии генератор равнораспределённой СВ.

Алгоритм:
Пусть имеется набор интервалов (0,v[1]), (v[1],v[2]), ... (v[k],v[k+1])....
Запишев файл таблицу, где на k-й строке будут записаны 3 (не обязательно все 3) числа: v[k-1], v[k] и число F[k], которое значение вычисляется по формуле
http://www.cyberforum.ru/cgi-bin/latex.cgi?F[k] = \frac{\sum_{j\leq k} P[j]}{\sum_{j} P[j]}, \qquad\qquad P[k] = \int_{v[k-1]}^{v[k]} \exp(-\frac{mv^2}{2T})dv
При запуске программы считываем эту таблицу.
Генератор выглядит следующим образом:
1. генерируется равнораспр. СВ 0<r<1.
2. ищется самое большое k, что F[k-1]<r<F[k].
3. возвращается (v[k-1],v[k]).

Объяснение идеи найдёте здесь: Генерирование случайного числа по заданному закону
Вопрос: Вывести средние скорости между тремя заданными парами пунктов

Маршрут перевозок задан в виде массивов
P1, ... , P12 - наименования пунктов от пункта отправления (P1) до пункта прибытия (P12);
R1, ... , R11 - расстояния между соседними пунктами;
T1, ... , T11 - среднее время в пути.
Вывести средние скорости между тремя заданными парами пунктов.

в паскале
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
type
    P = array [1..12] of string;
    T = array [1..11] of Word;
    R = array [1..11] of Word;
 
var
    destination : P;
    destination1, destination2 : string;
    way   : R;
    time  : T;
    w, tm, V : Real;
    i, i1, i2, j : Byte;
 
begin
     for i := 1 to 12 do begin
         Writeln('Введите название населенного пункта ');
         Readln(destination[i]);
         end;
     for i := 1 to 11 do begin
         Writeln('Введите расстояние между ', destination[i], ' и ', destination[i+1], ': ');
         Readln(way[i]);
         end;
     for i := 1 to 11 do begin
         Writeln('Введите среднее время в пути между ', destination[i], ' и ', destination[i+1], ': ');
         Readln(time[i]);
         end;
     for j := 1 to 3 do begin
          Writeln('Введите название пунктов, между которыми необходимо узнать среднюю');
          Write('скорость: ');
             Readln(destination1, destination2);
                for i := 1 to 3 do begin
                  if destination1 = destination[i] then
                     i1 := i;                       
                  if destination2 = destination[i] then
                     i2 := i;                       
                end;
 
          for i := i1 to i2-1 do
            tm := tm + time[i];
 
          for i := i1 to i2-1 do
            w := w + way[i];
 
          V := w / tm;
          Writeln('Средняя скорость между пунктами = ', V);
      end
end.
Вопрос: Зависимость начальной скорости от скорости в момент приземления

Пользователь вводит высоту с которой было брошено тело и его массу.
Требуется вычислить зависимость скорости в момент приземления от начальной скорости.
По какой формуле это реализуется? (Я в физике не силен.)
И как это реализовать в C#?
Ответ: Пробуй. Вроде правильно считает. Проверял на бесконечно тяжелом теле и на формуле, которая считает скорость в момент приземления скорость без учета сопротивления воздуха.
Вопрос: Определить, сколько раз в строку встречается заданное слово заданной длины

Ввести строку. Определить, сколько раз в строку встречается заданное слово заданной длинны - обрезать его или добавить знаками "!" в конец слова.
Ответ: Правка условия:
Ввести строку. Определить, сколько раз в строке встречается заданное слово заданной длинны. Если слово другой длины - обрезать его или добавить знаками "!" в конец слова.
Вопрос: Разработать метод удаления из заданного текста заданной подстроки

"Разработать метод удаления из заданного текста заданной подстроки."
Помогите пожалуйста написать программу. Желательно не сильно за мудрёную в стили вот этой:
Образец:
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            string str1;
            Console.WriteLine("Введите текст");
            str1 = Convert.ToString(Console.ReadLine());
            char[] m = str1.ToCharArray();
            char a = '.';
            int min = str1.Length;
            for (int i = 0; i < str1.Length; i++)
            {
                if ((m[i] == a) & (i < min))
                    min = i;
            }
            int max = 0;
            for (int j = 0; j < str1.Length; j++)
            {
                if ((m[j] == a) & (j > max))
                    max = j;
            }
            int b = max - min;
            string str2 = str1.Substring(min + 1, b);
            Console.WriteLine(str2);
            Console.ReadKey();
        }
    }
}
Ответ: почитай методы для String. Там уже все есть! Обратись к MSDN.
как вариант метод Replace(string oldValue, string newValue) класса String (где oldValue - заданная подстрока, а newValue="")

Добавлено через 1 минуту
Читай еще
Вопрос: Расчет изменения угловой скорости\линейной скорости центра масс полигона

Подскажите как и какие требуется применить физические законы для решения этой задачи. Необходимо передать импульс произвольному полигону в точке и, соответственно рассчитать изменение скорости полигона в результате воздействия.
Ответ: Понял о чем вы. Переделаю, если текущая реализация окажется недостаточно быстрой.
Вопрос: Фильтрация числового поля от заданного до заданного предела

Добрый день. Как можно реализовать фильтрацию полей от заданного до заданного поля.
Например, у нас есть квартиры с разной стоимостью. Мне нужно их отфильтровать от одного заданного значения до другого заданного значения. Как это можно сделать ?

PS: Все фильтры записываю в массив:
C#
1
List<string> filterList = new List<string>();
Ответ: Тут не нужно фантазировать. Есть простешая, широко используемая операция. Не требуется использовать коллекцию, никаких фильтров, достаточно просто массива стоимости квартир. Для наглядности установите листбокс и все требуемые данные будет там видны

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Forms Code
{
       private void button1_Click(object sender, EventArgs e)
       {
         
          int[] ari = new int[n];  //  n - число квартир
           int pricemin = n1, pricemax = n2;
            for(int i = 0; i< n; i++)
            {
              if(ari[i] >= n1 && ari[i] <= n2)
               listBox1.Items.Add(ari[i]);
             }
       }
}
Вопрос: Разработать процедуру, выводящую на экран заданное количество заданных символов

Разработать процедуру, выводящую на экран заданное количество заданных символов (в качестве параметров передаётся количество символов и сам символ (тип char)). Разработать программу, реализующую вывод на экран следующей последовательности символов в заданном формате, используя разработанную процедуру и оператор цикла.

00001
00010
00100
01000
10000
Ответ:
Pascal
1
2
3
4
5
6
7
8
procedure rep(ch : char; count : integer) := Write(ch*count);
 
begin
  for var i := 0 to 4 do
    begin
      rep('0', 4-i); Write('1'); rep('0', i); WriteLn;
    end;
end.
Вопрос: Рекурсивная подпрограмма, исключающая из заданной строки заданный символ

Всем привет.
Задача: Описать рекурсивную подпрограмму, исключающую из заданной строки заданный символ.
Помогите, пожалуйста, кому не трудно.
Ответ: Puporev, спасибо!