Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Задан текст и алфавит. Найти самую последнюю букву алфавита, использованную в тексте https://www.cyberforum.ru/ turbo-pascal/ thread1344197.html
Всех с наступающим новым годом!!! Ребятки сессия уже началась, а мне надо написать программку. Помогите пожалуйста. Условие: Задан текст и алфавит. Найти самую последнюю букву алфавита, использованную в тексте. Программу необходимо написать с тремя процедурами: ввод строки, вывод строки на экран, обработка строки ну и в конце через case of сделать выбор этих процедур. Помогите... 		Turbo Pascal Типизированные файлы. Напечатать имена людей, имеющий наименьший возраст
Дан файл, содержащий записи имен и возрастов некоторой группы людей. Напечатать имена людей, имеющий наименьший возраст. Уже часть программы накатал, а вот дальше ступор после считывания созданного файла, как выполнить условие? Program FinalStep; type fam=record ff:string; age:byte end; var f:file of fam;
Turbo Pascal Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова представляют собой произвольную последовательность символов, отличных от пробела. Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста. помогите пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread1344134.html Turbo Pascal Решение уравнения Пожалуйста помогите написать уравнение в паскале. Очень нужно, так как начинаю осваивать программирование, а базы и примеров нет, простейшее могу написать, а посложнее уже проблема. Уравнения: c=b2\a2 - (b+2a)sin(ea), если cos(a)<b c=b2\a2 - (sin(b)+a)sin(ea), если cos(a)=b c=b2\a2 - (b+a)lg(ea), если cos(a)>b https://www.cyberforum.ru/ turbo-pascal/ thread1344098.html
Turbo Pascal Вычислить куб суммы и число тех элементов массива, значения которых меньше заданной величины A
вычислить куб суммы и число тех элементов массива X(n,m), значения которых меньше заданной величины A или находятся в пределах от B до C(включая указанные границы). 		Turbo Pascal Как реализовать одновременное движение двух объектов Как реализовать одновременное движение двух объектов, один из которых управляется клавиатурой,а второй двигается сам. попрошу на примере. uses crt,graph; var a:char; d,m,x,y,x3,y3:integer; begin d:=0; initgraph(m,d,'..'); x3:=300;y3:=400; x:=20;y:=20; https://www.cyberforum.ru/ turbo-pascal/ thread1344078.html
Turbo Pascal Даны натуральное число n, действительная матрица. Получить последовательность элементов главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread1344001.html
Даны натуральное число n, действительная матрицаi,i]i=1, ... ,n, j=1,…, n. Получить последовательность элементов главной диагонали a11, a22, ...,ann На Паскале 		Вычислить значение выражения Turbo Pascal
С помощью repeat. Помогите очень нужно.
Turbo Pascal Сформировать список судовых спасательных средств https://www.cyberforum.ru/ turbo-pascal/ thread1343967.html
14. РАБОТА С ФАЙЛАМИ ЗАПИСЕЙ Требуется создать программу ведения файла, компонентами которого являются записи комбинированного типа - RECORD. Программа должна быть структурирована, то есть содержать следующие процедуры: созда¬ние нового файла, добавление в файл, новой записи, удаление из файла указанной записи, упорядочение (индексация) записей по одному или двум полям, фильтрация, выборка по... 		Turbo Pascal Отладить программу решения нелинейных уравнений, не правильно работает метод дихотомии Кто-нибудь выручите плиз((Нужно отладить программу решения нелинейных уравнений,не правильно работает метод дихотомии( Например вводим коэффициенты полинома a0 = 1 a2= -2 a3= 1 Границы: а = -0,345 b = 1.759 Разбиения: n = 3 Точность: e = 0.0001 Получается уравнение x^2 - 2x +1 = 0 Корень равняется единице и он попадает в граничные условия Программа пишет что корень найден на таком то... https://www.cyberforum.ru/ turbo-pascal/ thread1343930.html
Turbo Pascal Составить подпрограмму определения координат точки пересечения двух прямых
Составить подпрограмму определения координат точки пересечения двух прямых y={k}_{1}x+{b}_{1} и y={k}_{2}x+{b}_{2}, проходящих через заданные точки по формулам: {x}_{0}={b}_{2}-{b}_{1}\{k}_{1}-{k}_{2}; {y}_{0}={k}_{1}*{b}_{2}-{b}_{1}*{k}_{2}/{k}_{1}-k Коэффициенты k и b прямой y=kx+b проходящей через точки ({x}_{1};{y}_{1})({x}_{2};{y}_{2} определить из уравнения: Найти точки пересечения... 		Turbo Pascal Составить программу выдачи на экран значений функции не больше 6.1 https://www.cyberforum.ru/ turbo-pascal/ thread1343771.html
Задача №2 Составить постановку, алгоритм и программу выдачи на экран в PASCALе значений функции не больше 6.1 b=tg(u-123)+u/(14+cos2u) на отрезке c с шагом d
228 / 225 / 220
Регистрация: 03.07.2012
Сообщений: 466
30.12.2014, 06:30 0

Рекурсивная процедура. Определить результат сравнения количества четных и количества нечетных чисел - Turbo Pascal - Ответ 7053565

30.12.2014, 06:30. Показов 1639. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Dmitriy1994 как решение

Решение

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

uses
  crt;
procedure Compar(var sum : integer);
var c : char; num : integer;
begin
  write('Input number?, y/n :'); readln(c);
  if c = 'y' then begin
    write('Number : '); readln(num);
    If odd(num) then begin
      Compar(sum);
      sum := sum + 1;
    end else begin
      Compar(sum);
      sum := sum - 1;
    end;
  end else sum := 0;
end;
var sum : integer;
begin
  clrscr;
  Compar(sum);
  If sum > 0 then writeln(abs(sum),' more odd numbers')
  else if sum < 0 then writeln(abs(sum),' more even numbers')
  else writeln('number of positive and negative equally');
  readln;
end.
Добавлено через 11 минут
Ошибся малость:
Pascal
1
2
3

  If sum > 0 then writeln(sum,' more odd numbers')
  else if sum < 0 then writeln(abs(sum),' more even numbers')
  else writeln('number of odd and even equally');


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

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

Результат сравнения количества положительных и количества отрицательных чисел с рекурсией
Необходима программа с использованием рекурсии, которая находит результат сравнения количества...

В матрице найти разность количества нечетных чисел 1-ой строки и количества четных чисел 4-го столбца.
Нужно программу составить в паскале (лабы): 1)В матрице А(5,7) найти разность количества ...

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

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

подсчет количества четных и нечетных чисел
подсчет количества четных и нечетных чисел в исходной последовательности целых чисел

Подсчет количества четных и нечетных чисел
Что нужно дописать чтобы программа считала еще четные числа? и не четные? var a, b, p:integer;...

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

Формулы вычисления количества чётных и нечётных чисел в диапазоне
Подскажите плз формулу массивов для вычисления количества четных чисел диапазона A1:E100

Подсчет количества четных и сумма нечетных чисел в файле
День добрый. Помогите, написал программу, но не работает, выдает &quot;Ошибка 100: ошибка чтения с...

Найти сумму количества четных чисел 2-ой строки и количества отрицательных чисел 4-го столбца матрицы
В матрице A(5; 5) найти сумму количества четных чисел 2-ой строки и количества отрицательных чисел...

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