Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Ошибка: Нельзя изменять значение переменной цикла внутри этого цикла при запуске в строке If i=k Then i:=i+1; выдает ошибку "Нельзя изменять значение переменной цикла внутри этого цикла". Объясните почему вылетает эта ошибка, по возможности исправьте. Спасибо Текст программы program labI4(input,output); Uses crt; Label m1; Var a,a5: array of real; b,b5: array of real; k,i,m,n,st:integer; https://www.cyberforum.ru/ pascalabc/ thread1081106.html	Треугольник задан координатами вершин. Определить координаты и радиус описанной окружности Pascal ABC Помогите написать прогу! Треугольник задан координатами вершин. Определить координаты и радиус описанной окружности
Pascal ABC Определить принадлежит ли точка плоскости Помогите пожалуйста решить задачу, я вообще не понимаю этот предмет, а поскольку учусь заочно, то объяснения со стороны учителя "никакие", очень надеюсь на Вашу помощь, заранее спасибо. Определить принадлежит ли точка плоскости. Вход: В первой строке: четыре числа коэффициенты уравнения плоскости. Во второй строке: три числа – координаты точки https://www.cyberforum.ru/ pascalabc/ thread1081098.html	Pascal ABC Вычислительная геометрия Помогите пожалуйста решить! Я краб ничего не шарю(а в понедельник сдавать Угол задан вершиной и двумя точками М2(x2,y2),М1(x1,y1), которые лежат на сторонах этого угла. Найти уравнение биссектрисы этого угла. https://www.cyberforum.ru/ pascalabc/ thread1081096.html
Составить программу, задающую загадки и анализирующую ответы Pascal ABC Составить программу, задающую загадки и анализирующую ответы	Pascal ABC Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера пожалуйста:cry::cry::cry: Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера. https://www.cyberforum.ru/ pascalabc/ thread1081070.html
Pascal ABC Обработка двумерных массивов со вспомагательными алгоритмами https://www.cyberforum.ru/ pascalabc/ thread1081063.html Изменив текст основной программы, и вычислить количество строк, где есть элементы разных знаков. {---------- Двумерные массивы ---------------} program primer1; uses crt; type stroka=array of real; matr=array of stroka; var m,n,i,j,k,l,r:integer; s,s1,s2,ext:real; x,y:stroka;	Pascal ABC Массивы. Среднее арифметическое всех элементов массива, имеющих нечётное значение Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, имеющих нечётное значение. Гарантируется, что хотя бы один такое элемент в массиве есть вот это с2 часть
Pascal ABC Массивы. Найдите количество элементов, имеющих максимальное значение Помоги пожалуйста:cry: Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение (помоги еще с блок схемой) https://www.cyberforum.ru/ pascalabc/ thread1080994.html	Pascal ABC матрица. найти произведение отрицательных сумму и количество остальных https://www.cyberforum.ru/ pascalabc/ thread1080993.html матрица. найти произведение отрицательных сумму и количество остальных
Pascal ABC Табулирование. while	Pascal ABC Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение https://www.cyberforum.ru/ pascalabc/ thread1080989.html Помогите пожалуйста:cry: Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение

some_name

Вежливость-главное оружие

233 / 234 / 86

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

Сообщений: 1,446

25.01.2014, 15:14

Литерные величины - Pascal ABC - Ответ 5692068

25.01.2014, 15:14. Показов 1975. Ответов 1

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

Ответ

Pascal

program SimpleCounterWord;
uses crt;
var
   data, word : string;
   counter : integer;
begin
     counter := 0;
     write('Enter some string : '); readln(data);
     write('Enter some word from this string : '); readln(word);
     
     while pos(word, data) > 0 do
           begin
                inc(counter);
                delete(data, pos(word, data), length(word));
           end;
     write(counter);
end.

Вернуться к обсуждению:
Литерные величины Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.01.2014, 15:14

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

Литерные величины
Текст задан следующим образом: первый символ - цифра указывающая длину первого слова. За первым...

Литерные величины.
1. Составить алгоритм и программу на языке Pascal для подсчета суммарного числа букв «е» и букв «о»...

Литерные перменные
В заданный непустой текст входят только цифры и буквы. Длина текста не более 12 символов. ...

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

	25.01.2014, 15:14

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.01.2014, 15:14

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

Литерные!!!
среди сим волов текста встречается знак # который означает отмену предыдущего символа . K символов...

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

Найти вероятности случайной величины, зная величины и математическое ожидание
Помогите решить задачу: x1=4 ; x2=6 ; x3=11 M(X)=6 M(X^2)=36

Одномерные массивы. Заменить элементы массива, меньшие заданной величины на значение этой величины
Составьте программу, заменяющую все элементы одномерного массива (массив заполняется с клавиатуры),...

Наверх