Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Задан массив А размером n Найдите в нем первую пару последовательных элементов, таких, что ai • ai+1 <0. https://www.cyberforum.ru/ turbo-pascal/ thread981828.html	Turbo Pascal Найти сумму членов ряда Найти сумму членов ряда x-(x^3)/3+...+(-1)^n * ((x^(2n+1)/(2n+1))+..., ( где i = 1, 2, ..,), меньших 1. Вычислить сумму членов для следующих рядов с точностью до члена ряда, меньшего E (заданная точность): E=0,0001; x=0,103. Заранее спасибо.
Turbo Pascal не могу понять задание Тема рекурсивные алгоритмы. Алгоритм Евклида вычисления наибольшего общего делителя двух чисел a и b заключается в том, что на каждой итерации в случае нера- венства этих чисел, большее число заменяется разностью большего и меньшего. Процесс итераций заканчивается, когда числа окажутся равными. Только нужно использовать рекурсивную подпрограмму-функцию и еще использовать форму 3. Из... https://www.cyberforum.ru/ turbo-pascal/ thread981814.html	Turbo Pascal Задана строка. Определить, содержаться ли в строке буквы а, б, в, г, д или буквы a, b, c, d, f, g https://www.cyberforum.ru/ turbo-pascal/ thread981813.html Задана строка. Определить, содержаться ли в строке буквы а, б, в, г, д или буквы a, b, c, d, f, g.
Turbo Pascal Вычислить значение функции c точностью Е Здравствуйте! Помогите пожалуйста решить такую задачу. Вычислить значение функции c точностью Е= 0.0001 при конкретном значении x	Turbo Pascal Напечатать таблицу значений функции Y=X^2+1 во введенном диапазоне(цикл for) Напечатать таблицу значений функции Y=X^2+1 во введенном диапазоне(цикл for) https://www.cyberforum.ru/ turbo-pascal/ thread981806.html
Turbo Pascal Вычислить сумму и произведение https://www.cyberforum.ru/ turbo-pascal/ thread981777.html Вычислить сумму и произведение	Turbo Pascal Подправить программу Дано натуральное число n. Получить все взаимно простые числа, меньше n (два натуральных числа называются взаимно простыми если их наибольший общий делитель равен 1) program prak3; var n,m,a,b,r,x,t:integer; Begin write(Введите число n = '); readln(n); write('Числа взаимно простые с n='); for m:=1 to n-1 do begin
Turbo Pascal В массиве чисел замените элементы с k1-го по k2-й на противоположные по знаку Сформировать одномерный массив с помощью генератора случайных чисел в диапазоне . В заданном массиве чисел замените элементы с k1-го по k2-й на противоположные по знаку. Обязательно выводить на экран исходный массив и результатирующий https://www.cyberforum.ru/ turbo-pascal/ thread981650.html	Turbo Pascal Сформировать одномерный массив с помощью генератора случайных чисел Сформировать одномерный массив с помощью генератора случайных числе. Из элементов массива А размерностью n>10 сформирует массив В той же размерности следующим образом: если номер четный , то B:=A* A, если нечетный то B:=A Div i. обязательно выводить на экран исходный массив и результирующий. https://www.cyberforum.ru/ turbo-pascal/ thread981642.html
Определить, является ли последовательность закономерной Turbo Pascal Вводится последовательность ненулевых чисел, 0-конец последовательности. Определить, является ли последовательность закономерной. через while, do, repeat,for to do	Turbo Pascal Подсчитать, сколько в последовательности отрицательных чисел, и сумму положительных чисел 4.Вводится последовательность ненулевых чисел, 0-конец последовательности.Подсчитать, сколько в ней отрицательных чисел, и сумму положительных чисел. Задачу нужно выполнить через Repeat и for через While я сделал, а как через это сделать, ни малейшей идеи... помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread981606.html

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

19.10.2013, 19:27

Программа на отсеивание 4х значных - Turbo Pascal - Ответ 5205708

19.10.2013, 19:27. Показов 549. Ответов 2

Метки (Все метки)

Ответ

Pascal

program dtp;
var f:text;
    i,a,b,c,d,res:integer;
begin
assign (f,'ball.txt');
rewrite (f);
for i:=1000 to 9999 do
if i mod 154 = 0 then
 begin
  a:=i div 1000;
  b:=i div 100 mod 10;
  c:=i div 10 mod 10;
  d:=i mod 10;
  if((a=b)or(a=c)or(a=d)or(b=c)or(b=d)or(c=d))
  and(a+b+c+d=30) then writeln(f,i)
 end;
close (f);
end.

Вернуться к обсуждению:
Программа на отсеивание 4х значных Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.10.2013, 19:27

Готовые ответы и решения:

Программа генерации 5-значных чисел
программа генерирует 5-значные числа. если числа не подходят, то он должен заново сгенерировать...

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

Программа для сравнения двух n-значных чисел (где n>20);
1. Программа для сравнения двух n-значных чисел (где n>20);

Отсеивание по дате.
Подскажите пожалуйста что можно сделать. Имеется таблица с двумя полями (Фамилия, дата рождения) ...

	19.10.2013, 19:27

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.10.2013, 19:27

Помогаю со студенческими работами здесь

Отсеивание данных
Здравствуйте всем! Помогите пожалуйста с такой проблемой: есть таблица (ADOTable) размещенная на...

Отсеивание по группам
Добрый день, у меня или сложная задача или я туплю. Есть такая таблица. 1 A1 Y 1 A2 Y 1 ...

Отсеивание массивов
Уже второй день я мучаюсь с программой, почти доделал. Осталось только сделать отсеивание массивов....

Отсеивание в элементе
Приветствую форумчане. Обращаюсь с просьбами о помощи. не могу понять как это можно реализовать....

Наверх