Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Во введенной строке подсчитайте количество определенных символов https://www.cyberforum.ru/ pascal/ thread1391535.html
Во введенной строке подсчитайте количество символов "*" и символов "!".
Pascal Программа, инвертирующая слова в строке
Ребя нужно написать программу которая инверсирует строку. Вот программа(но она не меняет слова местами, пример :ввод 123 abc, вывод cba 321, А нужно чтобы было 321 cba) var s: string; i,n: byte; c: char; begin write('Input string: '); readln(s); n := length(s) div 2;
Pascal Поиск в графе в ширину заданном списками инциденций https://www.cyberforum.ru/ pascal/ thread1391331.html
Добрый день. Пытаюсь написать функцию поиска в ширину в графе, заданным списками инциденций. Работает не правильно, пропускает вершины. Помогите пожалуйста разобраться с программой. program LAB7; //uses crt; type TList = ^pList; pList = record
Pascal Протабулировать функцию на промежутке с заданным шагом Протабулировать функцию у = 4cos (х2-2) на промежутке с шагом h = 0,02. Результаты вычислений вывести на экран в виде таблицы. Вычислить сумму первого и последнего значений функции. https://www.cyberforum.ru/ pascal/ thread1391302.html
Вычислить произведение цифр введенного пользователем двузначного числа Pascal
Написать программу, которая вычисляет произведение цифр введенного пользователем двузначного числа.
Pascal Выяснить, есть ли два действительные числа А и В, введенные пользователем, парными Выяснить, есть ли два действительные числа А и В, введенные пользователем, парными. Результаты проверки вывести на экран. https://www.cyberforum.ru/ pascal/ thread1391292.html
Pascal Перевод c Java на Pascal Всем доброго времени суток, помогите пожалуйста перевести программу с Java на Pascal. Рылся рылся по интернетам но половину операторов не могу найти, смысл вроди бы и понял а перевести не могу хД Ужасно надо. Заранее спасибо import java.util.Scanner; public class Delphi17 { public static void Menu() { Scanner in = new Scanner(System.in); https://www.cyberforum.ru/ pascal/ thread1391226.html Поменять местами строки односвязного списка Pascal
Проблема в том,что 1 и 2 местами не меняет,не могли бы вы помочь? type el=^eltype; eltype=record data:string; next:el; end; var root,el1,el2:el; i,j,k:byte; c:char;
Pascal Составить процедуру, которая создает файл из вещественных чисел https://www.cyberforum.ru/ pascal/ thread1390995.html
Помогите пожалуйста написать программу, заранее спасибо!!! Составить процедуру, которая создает файл из вещественных чисел, количество и значение которых, так же как и имя создаваемого файла вводится с клавиатуры
Pascal Разработать программу шифрования текстовых файлов Доброго времени суток... Выручайте... Программа должна выполнить следующие действия: организовать построчное чтение данных из файла, увеличить на 1 код каждого символа строки, записать строку в выходной файл, аналогичным образом выполнить расшифровку зашифрованного файла. Каждое действие оформляется как подпрограмма. Главная программа реализует только диалоговый цикл взаимодействия с... https://www.cyberforum.ru/ pascal/ thread1390940.html
Найти найбольшое по модулю из заданных чисел Pascal
Задано масив указателей указывающих на элементы с двумя полями:Действительная и мнимая части комплексного числа. Найти найбольшое по модулю из этих чисел. Реализовать задачу через процедуру или функцию. Заранее спасибо!!
Pascal Заполнить массив из 6 элементов случайными неповторяющимися целочисленными значениями от 1 до 49 Задание к модулю 16 : Написать программу, которая заполняет массив из 6 элементов случайными неповторяющимися целочисленными значениями от 1 до 49. После этого программа просит пользователя ввести 6 целых чисел от 1 до 49 (при вводе проверяется, что вводимое число соответствует данному условию; в противном случае число вводится повторно). Программа считает, сколько чисел из введённых... https://www.cyberforum.ru/ pascal/ thread1390538.html
228 / 225 / 220
Регистрация: 03.07.2012
Сообщений: 466
10.03.2015, 13:23 0

С клавиатуры последовательно вводятся символы до первого символа "!" Подсчитать количество символов ";" - Pascal - Ответ 7321471

10.03.2015, 13:23. Показов 1713. Ответов 5
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses
  crt;
var
  c : char;
  i : byte;
begin
  clrscr;
  while c<>'!' do begin
     c := readkey;
     write(c);
     if c=';' then inc(i);
  end;
  writeln(#10,#13,'Number of symbols ";" ',i);
  readln;
end.


Вернуться к обсуждению:
С клавиатуры последовательно вводятся символы до первого символа "!" Подсчитать количество символов ";" Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2015, 13:23
Готовые ответы и решения:

Ввести текст до первого символа '.' , и подсчитать количество символов 'А' в каждом слове
1) Ввести текст до первого символа '.' , и подсчитать количество символов 'А' в каждом слове. ...

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

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

Создать файл произвольных символов (символы вводятся с клавиатуры)
Создать файл произвольных символов (символы вводятся с клавиатуры). Создать файл символов,...

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

С клавиатуры вводятся символы, пока не встретится символ '*'. На экран выводить код каждого введенного символа.
с первой частью программы я разобрался вот #include &lt;iostream&gt; #include &lt;string&gt; using...

С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100
Заранее спасибо!!

Считать из файла символы. Подсчитать в них количество требуемого символа и записать количество в файл
Считать из файла символы. Подсчитать в них количество требуемого символа и записать количество в...

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

С клавиатуры вводятся целые положительные числа. Подсчитать количество введенных чисел и указать наибольшее.
 С клавиатуры вводятся целые положительные числа. Подсчитать количество введенных чисел и указать...

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

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