Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal найти ошибку в коде, пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread981535.html
Нам дан массив с 5 елементами: нужно посортировать в порядке убывания: (3,2;-6.3;-8.3;0.0;1.2), Вот код: program laba7_3; const n=5; var m:array of integer; k,i,j:integer; Begin writeln('Vvedit massiv'); for i:=1 to n do read(m);
Turbo Pascal По названию месяца определить количество дней в месяце
Составить программу которая бы по названию месяца выдавала бы количество дней в месяце
Turbo Pascal Используя код Хемминга Используя код Хемминга, подготовить к передаче сообщение длиной n. https://www.cyberforum.ru/ turbo-pascal/ thread981498.html Turbo Pascal Определить, что одна дата предшествует второй составить программу которая бы присваивала переменой Т значение true если дата d1 m1 предшествует (в рамках года) дате d2 m2 и значение false иначе (d1 u d2,m1 u m2 - месяц) https://www.cyberforum.ru/ turbo-pascal/ thread981496.html
написать число вразбивку Turbo Pascal
Натуральное число n. Напечатать его вразбивку(ставя перед каждой цифрой столько пробелов, каково значение этой цифры.) Например, число 1234 печатается 1 2 3 4.
Turbo Pascal Вычислить количество элементов массива, равных 0 https://www.cyberforum.ru/ turbo-pascal/ thread981481.html
Нужно вычислить количество элементов , равных 0
Turbo Pascal Преобразовать массив, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях Преобразовать массив K размером n таким образом ,чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях , а во второй половине элементы ,стоявшие в четных позициях https://www.cyberforum.ru/ turbo-pascal/ thread981480.html Turbo Pascal Оптимизация программы
В заданном натуральном массиве каждому элементу есть пара, такой же по значению элемент, кроме одного, для которого пары не нашлось. Найти значение этого элемента. Входные данные: Во входном потоке в первой строке задано натуральное число N (N <= 75 000). Во второй строке перечислены через пробел 2 * N + 1 элементов. Значения элементов не превышают 1 000 000 000. Выходные данные: В...
Turbo Pascal осмысленный текст Сохдать программу, проверяющую файл на наличие в нем осмысленного текста по критерию, что символ пробела с кодом 32 должен встречаться не реже, чем через 20 позиций строки. https://www.cyberforum.ru/ turbo-pascal/ thread981434.html Turbo Pascal Восстановить начальное сообщение Даны n двоичных семибитных кода, представляющие собой искаженные слова кода Хемминга. Восстановить начальное сообщение (при кодировании сообщение разбивалось на слова длиной 4). https://www.cyberforum.ru/ turbo-pascal/ thread981432.html
Выделить количество чисел n Turbo Pascal
Среди n произвольных целых чисел выделить количество чисел: - четных отрицательных. - четных положительных. - нечетных отрицательных. - нечетных положительных. Помогите пожалуйста решить ее! Буду очень вам благодарен! Заранее спасибо! И пожалуйста кто сможет сделайте к ней блок схему, еще раз спасибо!
Turbo Pascal цикл єйлера помогите написать прогу, находящую и выводящую эйлеров цикл в графе. Чтобы сначала был запрос на количество ребер в графе а потом в ручную вводиш вершины графа типу: После чего появлялса эйлеров цикл якщо вин есть https://www.cyberforum.ru/ turbo-pascal/ thread981350.html
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
19.10.2013, 14:30 0

Прокомментировать код - Turbo Pascal - Ответ 5204512

19.10.2013, 14:30. Показов 454. Ответов 1
Метки (Все метки)

Ответ

twonislatex, судя по всему - находит сумму факториалов всех нечетных чисел от 1 до заданного n:
Pascal
1
2
3
4
5
6
7
8
9
begin
  sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do { ищем среднее от числа n (от 10 будет 5, от 11 - 6)}
  begin
    fac:=1; {произведению присваиваем единицу в начале цикла}
    for j:=2 to (2*i-1) do {проходим по нечетным числам}
      fac:=fac*j;  {вычисляем произведение всех нечетных до i}
    sum:=sum+fac;  {суммируем произведения}
  end;


Вернуться к обсуждению:
Прокомментировать код Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2013, 14:30
Готовые ответы и решения:

Прокомментировать код
Ситуация следующая: знакомый написал программу,которую надо было сросно сдать(для промежуточной...

Прокомментировать код
Здравствуйте! Не могли бы вы подробно написать о том, что происходит в этой функции. function...

Прокомментировать код
объясните пожалуйста что каждая строчка означает, т.е. напишите комментарии к ним. Первая...

Прокомментировать код
Прочитайте пожалуйста тело программы по действиям , очень надо! начиная с FOR const m=5; n=4; var...

1
19.10.2013, 14:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2013, 14:30
Помогаю со студенческими работами здесь

Прокомментировать код
Доброго времени суток! Помогите разобраться с простым кодом, написать мне, за что отвечает каждая...

Прокомментировать код
program kursova; type fil=text; var f1:fil; name:string; txt:string; begin write('Vvedite imya...

Прокомментировать код
Мне нужно знать как вот этот листинг объяснить...желательно про подающие буквы. {Nadpis'} ...

Прокомментировать код
Помогите плиз,надо лабу сдать завтра,программу я скачал но не пойму ни одной строчки,а у нас препод...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru