Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Укажите номер строки программы, в которой допущена ошибка, поставьте запятую, а затем без пробелов запишите строку правильно. https://www.cyberforum.ru/ pascal/ thread111822.html Укажите номер строки программы, в которой допущена ошибка, поставьте запятую, а затем без пробелов запишите строку правильно. program rt; var list: array of integer; indx: integer; ... А лучше так: program rt; var list: array of integer; indx: integer; a:integer; begin writeln('введите а'); read(a); if a=2 then exit;	В матрице n-го порядка найти максимальный элемент среди элементов Pascal В матрице n-го порядка найти максимальный элемент среди элементов, лежащих выше побочной диагонали, и минимальный среди элементов, лежащих ниже главной диагонали. uses crt; const nmax=20; var a:array of integer; n,i,j,imx,jmx,imn,jmn:byte; begin clrscr; randomize; repeat write('Размер матрицы='); readln(n);
Pascal вставка в массив(паскаль) Помогите плиз написать програмку,вставляющую 2 пробела до всех символов,не принадлежащих некоторому множеству,задаваемому с клавиатуры.Нужно очень срочно...	Pascal Квадратная матрица.Получить одномерный массив.2 способа. https://www.cyberforum.ru/ pascal/ thread111749.html Люди,выручайте!Помогите пожалуйста составить программу.Двумя способами.И блок-схемы к ним. Дана квадратная матрица.Получить одномерный массив,состоящий из средних арифметических значений элементов... какой язьк програмирование
Pascal Посчитайте количество положительных элементов заданного массива А[10]. Посчитайте количество положительных элементов заданного массива А. Посчитайте количество положительных элементов заданного массива А. При чем здесь max, который вы так старательно ищете? k:=0; for i:=1 to 10 do if a>0 then k:=k+1; https://www.cyberforum.ru/ pascal/ thread111839.html	Массив X содержит несколько нулевых элементов, разделяющих его на отдельные подмассивы. Pascal Массив X содержит несколько нулевых элементов, разделяющих его на отдельные подмассивы. Первый и последний элементы массива ненулевые. Удалить из массива X пустые подмассивы (вместе с одной из их...
Составить программу табулирования функции Pascal Помогите проверить задачу (Составить программу табулирования функции ln (x + √ (x + y)) в прямоугольнике x с шагом табуляциы h. a=0;b=2;c=1;d=2;h=0.1) Вот моя программа program aa; uses crt; ... Я бы чуть поправил. program aa; uses crt; const a=0; b=2; c=1; d=2; h=0.1; t=0.0001;{точность попадания в конечный интервал, иначе его может не посчитать,...	Pascal заменить нулями числа в матрице Дана квадратная матрица порядка M. Заменить нулями элементы матрицы, лежащие выше побочной диагонали var a:array of integer; i,j,n:byte; begin writeln('Введите порядок'); readln(n); for i:=1 to n do for j:=1 to n do begin writeln('Введите элемент ',i,' строки ',j,'... https://www.cyberforum.ru/ pascal/ thread111845.html
рекурсивный подъем и... Pascal здравствуйте, дана строка(последовательность слов), в 3-м слове удалить все вхождения последней буквы строки, с использованием рекурсивного спуска, подъема, и без рекурсии(с использованием цикла). Я...	Pascal Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца последовательности) Дана непустая последовательность ненулевых целых чисел, за которой следует 0(0 - признак конца последовательности) Определить, сколько из них принимает наименьшиее значение. Через массив я знаю как... uses crt; var a,b,mn,k:integer; begin clrscr; writeln('Введите целые числа, окончание ввода 0:'); readln(mn); k:=1; repeat readln(a); if (a<mn)and(a<>0) then https://www.cyberforum.ru/ pascal/ thread111788.html
Pascal Даны координаты вершин треугольника и точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника. Друзья, я уже видел темы, где люди просили написать прогу и видел отказы, так как вопросы - пожалуйста, а прогу пиши сам. Это правильно, но у меня как бы такая ситуация: дали 3 задания, которые я... https://www.cyberforum.ru/ pascal/ thread111818.html	Pascal Дано целое число N и набор из N вещественных чисел..... Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность. У Вас не написана тема, последовательности или массивы. Думаю первое, тогда так. uses crt; const max=100; var a,b:real; n,i,k:byte; begin clrscr; repeat write('Размер последовательности... https://www.cyberforum.ru/ pascal/ thread111838.html

Puporev

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

64307 / 47604 / 32742

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

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

02.04.2010, 09:54

в файле количество слов, начинающихся с а - Pascal - Ответ 636670

02.04.2010, 09:54. Показов 1035. Ответов 3

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

Ответ

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
27
28
29
30
uses crt;
var f:text;
    i:byte;
    name,s:string;
    k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
  if(s[i]='a')and((s[i-1]=' ')or(i=1)) then k:=k+1;
 end;
close(f);
write('Количество слов на а=',k);
readln
end.

Вернуться к обсуждению:
в файле количество слов, начинающихся с а Pascal

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

02.04.2010, 09:54

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

В исходном файле подсчитать количество слов начинающихся с заданных букв
В исходном файле подсчитать количество слов начинающихся с букв ‘a’, ‘е’, ‘и’, ‘о’. В file2 вывести построчно все слова начинающиеся с этих...

Подсчитать в файле количество слов, начинающихся на заданную букву
Создать файл, содержащий несколько произвольных строк. Подсчитать в файле количество слов, начинающихся на заданную букву. Записать эти...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

02.04.2010, 09:54

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

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

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

Поиск слов в файле, начинающихся с
Необходимо: прочесть текст в файле, вывести все слова, начинающиеся с некоторой буквы. В данном случае - "w". Искать обязательно...

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

Cтруктура: Поиск в файле всех слов, начинающихся с заданной буквы...
Разработать приложение, демонстрирующее работу с текстовыми файлами: * создание файла (имя и содержимое файла вводятся с клавиатуры); ...

Новые блоги и статьи Все статьи Все блоги /
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .	Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .

Наверх