Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal из if в case of https://www.cyberforum.ru/ turbo-pascal/ thread816441.html
как переписать ее через сase of если там значение real program lab3; const K=1; L=20;pi=3.14; Var x,a,b,y:real; begin writeln('vvedit x'); readln(x); a:=exp(1/10*ln(10+exp(1/10*ln(10))*sin(x)/cos(x)));
Правило Крамера. Метод обратной матрицы Turbo Pascal
Помогите! нужна программа которая будет решать по методу Крамера! желательно с объяснением кода!
Turbo Pascal Составьте программу, вставляющую после буквы "К" https://www.cyberforum.ru/ turbo-pascal/ thread816431.html
Составьте программу, вставляющую после буквы "К" ещё одну букву "К", если после нее нет числа 12.
Turbo Pascal Удалить из массива все элементы, кратные 7 и принадлежащие промежутку https://www.cyberforum.ru/ turbo-pascal/ thread816423.html
Дан массив целых чисел (n = 20), заполненный случайным образом числами из промежутка . Удалить из него все элементы, кратные 7 и принадлежащие промежутку (а и b вводить с клавиатуры).
Turbo Pascal Файл: Записать в файл h сначала компоненты файла f, затем - компоненты файла g в обратном порядке.
Даны символьные файлы f и g. Составьте программу записывающую в файл h сначала компоненты файла f, затем - компоненты файла g в обратном порядке.
Turbo Pascal Текстовый файл, выровнять текст по ширине https://www.cyberforum.ru/ turbo-pascal/ thread816313.html
Дан текстовый файл, содержащий текст, выровненный по левому краю. Абзацы текста разделяются одной пустой строкой. Выровнять текст по ширине (то есть и по левому, и по правому краю), увеличив в каждой непустой строке (кроме последних строк абзацев) количество пробелов между словами, начиная с последнего пробела в строке (ширину текста считать равной 50). ---------------- Не могу придумать...
Turbo Pascal Массив: Поменять столбец, содержащий максимальный элемент с последним столбцом массива. 3. Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива . https://www.cyberforum.ru/ turbo-pascal/ thread816302.html Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением Turbo Pascal
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе вычислите сумму квадратов всех элементов за исключением элементов, кратных пяти. выручайте очень нужно! я умоляю Добавлено через 5 часов 49 минут пожалуйста кто нибудь.. Добавлено через 16 часов 9 минут как мне это сделать?
Turbo Pascal Определить, хватит ли продавцу фруктов, чтобы уравновесить весы Продавец положил в ряд в произвольном порядке n фруктов разного веса. Первый по порядку плод продавец положил на одну чашу весов. Потом решил уравновесить весы и положил следующий фрукт на вторую чашу. Далее он снова и снова клал фрукты, причем каждый раз на легкую чашу. Весы клонились то в одну, то в другую сторону. Продавца интересовало, хватит ли ему фруктов, чтобы все-таки уравновесить весы.... https://www.cyberforum.ru/ turbo-pascal/ thread816292.html Turbo Pascal Турбо паскаль. Операторы цикла Написать и отладить программу для табулирования функции - перевода километров в американские мили (mi) для расстояний от 1 до 20 км шагом 0,5 км ( 1 км равен 0,62137). https://www.cyberforum.ru/ turbo-pascal/ thread816282.html
Turbo Pascal По данным целым числам M и N сформировать матрицу
Описать процедуру Chessboard(M, N, A), формирующую по целым положительным числам M и N матрицу A размера M х N, которая содер-жит числа 0 и 1, расположенные в «шахматном» порядке, причем A1;1 = 0. Двумерный целочисленный массив A является выходным параметром. С помощью этой процедуры по данным целым числам M и N сформировать матрицу A размера M х N.
Turbo Pascal Описать функцию Sign(X) и вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread816271.html
2. Описать функцию Sign(X) целого типа, возвращающую для веще¬ственного числа X следующие значения: -1, если X < 0; 0, если X = 0; 1, если X > 0. С помощью этой функции найти значение выражения Sign(A) + Sign(B) для данных вещественных чисел A и B. Создавайте тему в соответствующем разделе.
218 / 50 / 52
Регистрация: 15.01.2013
Сообщений: 305
24.03.2013, 16:21 0

Составить программу вычисления количества нечетных элементов - Turbo Pascal - Ответ 4301722

24.03.2013, 16:21. Показов 2108. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Елена_В как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n=10;
var fv,rv:text;
i,s:integer;
a:array[1..n] of integer;
begin
assign(fv,'input.txt');
reset(fv);
for i:=1 to n do
    read(fv,a[i]);
close(fv);
s:=0;
for i:=1 to n do
    if (a[i] mod 2<>0) and (i mod 2=0) then s:=s+1;
assign(rv,'output.txt');
rewrite(rv);
write(rv,s);
close(rv);
end.


Вернуться к обсуждению:
Составить программу вычисления количества нечетных элементов Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2013, 16:21
Готовые ответы и решения:

Составьте программу вычисления количества нечетных элементов массива
Составьте программу вычисления количества нечетных элементов массива А(10), стоящих на четных...

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

Составить программу для подсчета количества нечетных элементов в каждой строке матрицы
Помогите, пожалуйста, очень нужно. Вот задание: дана матрица D размером . составить программу для...

Составить программу вычисления количества и суммы элементов, расположенных выше главной диагонали
Дана вещественная квадратная матрица А(N,N). Составить программу вычисления количества и суммы...

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

Составить программу вычисления количества циклов
3.1.составить программу вычисления количества циклов. Дано: z:=2; d:=7; k:=0; Пока d&gt;=x ...

Составить программу вычисления среднего количества посетителей за произвольный период
Известно количество посетителей в картинной галерее. Составить программу вычисления среднего...

Составить программу для вычисления суммы факториалов всех нечетных чисел от 1 до N
Добрый день, прошу помощи. Нужно составить программу для вычисления суммы факториалов всех...

Составить программу для вычисления суммы, количества и произведения n натуральных чисел.
Составить программу для вычисления суммы, количества и произведения n натуральных чисел. Суму...

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