Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Вывести отсортированную и перевернутую исходную строку https://www.cyberforum.ru/ turbo-pascal/ thread1768039.html
Помогите, пожалуйста. Задание:С помощью процедуры обработки строки с параметром процедурного типа вывести отсортированную и перевернутую исходную строку. Процедурный тип и относящиеся к нему подпрограммы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма.
Чему будет равна переменная sum после выполнения фрагмента программы Turbo Pascal
2)Чему будет равна переменная sum после выполнения фрагмента программы: sum:=0; for i:=5 to 8 do sum:= sum+i;
Turbo Pascal В массиве А найти сумму положительных элементов среди элементов с четными номерами 1)В массиве А найти сумму положительных элементов среди элементов с четными номерами https://www.cyberforum.ru/ turbo-pascal/ thread1768006.html Turbo Pascal Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью https://www.cyberforum.ru/ turbo-pascal/ thread1767909.html
Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью e=0,01 , то вычислить сумму этих чисел, в противном случае – их произведение. в Delphi7
Turbo Pascal Найти сумму всех из имеющихся в этом тексте чисел-целых, вещественных
Дан текст, найти сумму всех из имеющихся в этом тексте чисел. Числа могут быть целыми, вещественными! Решение для целых чисел нашел и разобрался, а с вещественными разобраться не могу uses crt; var a,t:string; i,k,w:integer; sum:real; begin clrscr; writeln('enter text'); readln(t);
Turbo Pascal Вывести на экран действующие часы в формате чч:мм:сс https://www.cyberforum.ru/ turbo-pascal/ thread1767843.html
Получить на экране изображение действующих часов: чч:мм:сс. Время начала отсчета вводится с клавиатуры. Формат часов должен быть такой 01:09:01. идей решения нет, единственное думаю что ко времени должна прибавляться постоянно секунда
Turbo Pascal Двузначное число, образованное парой, в которую входит k-тая цифра https://www.cyberforum.ru/ turbo-pascal/ thread1767835.html
Даны целое число k (1<=k<=180) и последовательность цифр 1011121314…9899, в которой выписаны подряд все двузначные числа. Определить: 1) k-тую цифру этой последовательности и 2) двузначное число, образованное парой, в которую входит k-тая цифра. Первую часть задания решить смог program ind13; uses crt; var k,z:integer; begin clrscr; repeat writeln('enter k'); readln(k);
Произвести операции над текстом Turbo Pascal
С клавиатуры вводится текст из прописных и строчных латинских букв и цифр. Ввод прекращается при нажатии клавиши Enter. Произвести следующие операции: 1) напечатать только прописные буквы, входящие в этот текст. 2) найти процентное содержание прописных букв в исходном тексте. Примечание: Все операции над строками выполняются отдельными функциями в том порядке, в котором они описаны в задании.
Turbo Pascal Заменить элементы с четным значением на 0, а нечетным на -1 https://www.cyberforum.ru/ turbo-pascal/ thread1767351.html
Для текстового файла, содержащего данные типа integer, создать его копию, в которой заменить элементы с четным значением на 0, а нечетным на -1. Количество элементов в исходном файле не ограничено.
Turbo Pascal Найти произведение элементов массива с четными номерами в одномерном массиве состоящем из n целых элементов вычислить: 1)произведение элементов массива с четными номерами 2)сумму элементов массива расположенными между первым и последним нулевыми элементами Преобразовать массив таким образом чтобы сначала располагались все положительные элементы, а потом все отрицательные https://www.cyberforum.ru/ turbo-pascal/ thread1767348.html
Turbo Pascal Описать структуру "Студент"
Не получается написать программу, выбивает ошибки. Помогите если не трудно, условие если нужно могу кинуть uses crt; procedure students; type students=record pr:string; kpz:string; datanarod:record
Turbo Pascal Определить, принадлежит ли заданная точка заданной области Для данных областей составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит закрашенной области, и false — в противном случае Помогите пожалуйста составить программу https://www.cyberforum.ru/ turbo-pascal/ thread1767170.html
2509 / 1130 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
21.06.2016, 23:25 0

Множества.Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте - Turbo Pascal - Ответ 9299836

21.06.2016, 23:25. Показов 4147. Ответов 3
Метки (Все метки)

Ответ

так не проще?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  s: string;
  i, coutz, coutb: integer;
begin
  coutz := 0;
  coutb := 0;
  writeln('Введите текст');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then  coutz := coutz + 1
    else
      if s[i] in ['a'..'z'] then  coutb := coutb + 1;
 
  if coutz > coutb then writeln('Цифр в тексте больше') 
  else if coutb > coutz then writeln('Букв в тексте больше')
  else writeln('Букв и цифр  в тексте поровну');
  Readln
end.


Вернуться к обсуждению:
Множества.Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2016, 23:25
Готовые ответы и решения:

Дан текст из строчных латинских букв. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте
привет помоги пожалуйста решить задачу по практике,буду очень благодарен(4. Дан текст из строчных...

Определить, каких элементов в массиве больше цифр или строчных латинских букв
Дан массив из символов, определить каких элементов в массиве больше цифр или строчных латинских...

Дан текст из цифр и строчных латинских и русских букв, за которым следует точка. Определить какие цифры не входят
Дан текст из цифр и строчных латинских и русских букв, за которым следует точка. Определить какие...

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

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

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

Определить каких элементов в массиве больше - цифр или латинских букв
Помогоите решить пожалуйста. задание: Дан массив. Определить каких элементов в массиве больше -...

Выяснить, чего больше в строке - букв или цифр
Дан текстовый файл содержащий заглавные латинские буквы и цифры.Выяснить,чего в нём больше букв или...

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

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