![]() |
|
Другие темы раздела | |
Pascal Считать данные из текстового файла в массив записей
https://www.cyberforum.ru/ pascal/ thread767967.html Народ выручайте, есть текстовый файл, в нем список студентов и их баллы за три модуля, выглядит примерно так: Аношенко Г. 40 40 40 Ракаускайте К. 30 33 33 Терентьев М. 31 34 35 ... var s1:string; c:integer; ..................... while not eof(f)do begin readln(f,s); n:=n+1; a.a:=copy(s,1,pos('.',s));//фамилия и. delete(s,1,pos(' ',s));//удалим по пробел... |
Pascal Найти среднее арифметическое элементов целого массива Найти среднее арифметическое элементов целого массива размерности 10 и записать его на место нулевых элементов. Uses crt; var A: array of integer; i: integer; sum, sred: real; begin clrscr; randomize; for i:=1 to 10 do begin A:=random(11)-10; https://www.cyberforum.ru/ pascal/ thread768272.html |
Pascal Олимпиадная задача с кубиками Не могли бы вы мне помочь? Юный математике Матвей интересуется теорией вероятностей, и по этой причине у него всегда есть с собой несколько стандартных шестигранных игральных кубиков. Стандартный... var n,min,max:longint; begin readln(n); max:=n*6; min:=(n div 6); if n mod 6<>0 then min:=min+7-(n mod 6); writeln(min,' ',max); end. |
Pascal Поменять элементы относительно побочной диагонали матрицы Поменять элементы относительно побочной диагонали uses crt; const nmax=15; var a:array of integer; n,i,j,x:integer; begin clrscr; randomize; repeat write('Размер матрицы до ',nmax,' n='); readln(n); |
Pascal Двумерный массив.Получить массив x1,x2.xn по правилу xi=0. Найти также произведение всех элементов матрицы Дана матрица n*n. Получить массив x1,x2...xn по правилу xi=0, если все элементы i го столбца и i ой строки меньше 1, иначе xi=1. найти также произведение всех элементов матрицы Var A:array of integer; X:array of byte; i,j,n:byte; pr:longint; Begin write('Введите N: ');readln(n); pr:=1; For i:=1 to n do Begin For j:=1 to n do |
Pascal Строковый тип данных - string! TP
https://www.cyberforum.ru/ pascal/ thread768361.html Ввести фамилию, имя и отчество как одно данное типа рядок. Определить длинну рядка и количество в нем букв "А". + "Вывести фамилию в столбик". а) рассматривая рядок как массив символов, б)применяя... Ввести фамилию, имя и отчество как одно данное типа рядок т.е всё пишется слитно?или есть разделители между ними? |
Pascal По введенным с клавиатуры значениям x,k вычислить
https://www.cyberforum.ru/ pascal/ thread768256.html По введенным с клавиатуры значениям x,k вычислить y=f(x) y=arcctg(sin2(/k*x/+1)*-1) cos(k*x) Uses crt; var k, x: real; function pow ( x, n: real ): real; begin if ( n = 0 ) then pow:=1 else pow:=x*pow(x,n-1); end; function arcctg ( k, x: real):real; |
Считывание данных с мыши Pascal Определить наличие тип установленного манипулятора «мышь» и написать программу для считывания данных с этого устройства, например, сообщать пользователю о наличии данных, поступающих с мышки. Я... Например так, если нужен текстовый режим. Модуль не мой, так что оставляю копирайт автора. { Модуль для работы с мышью в текстовых режимах (c) Viktor Ostashev 04.02.96 15:15 }... |
Pascal Двумерный массив. Найти номер столбца с наименьшим произведением элементов
https://www.cyberforum.ru/ pascal/ thread768181.html Среди столбцов целочисленной матрицы А(n,m) найти номер столбца с наименьшим произведением элементов. uses crt; const len = 10; var A: array of integer; i, j, index, n, m: integer; dub, min: longint; begin clrscr; randomize; repeat |
Pascal Упорядочить массив по убыванию произведений элементов столбцов Дан целый массив из 5 строк и 3е массивх столбцов. Упорядочить массив по убыванию произведений элементов столбцов. Uses Crt; Const n=5;m=3; Var A:array of integer; B:array of longint; i,j,k,t:longint; Begin ClrScr;Randomize; writeln('Исходная матрица'); For i:=1 to n do Begin https://www.cyberforum.ru/ pascal/ thread768267.html |
Pascal Предложите книги о програмировании на языке паскаль Учусь на прикланой математике. и мне нужен книга которая рассказывает простой. предлагаетесь автор пожалуйста! Добавлено через 23 часа 7 минут а некого не знает что ли ? https://www.cyberforum.ru/pascal/thread639917.html https://www.cyberforum.ru/ pascal/ thread767900.html | Pascal Строки. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте. plese решить задачу по практике: вот условия! Дан текст из строчных латинских букв. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте. Const m=; gl=; sg=m-gl; Var s: String; i,k1,k2: Integer; BEGIN Writeln('Введите строку:'); Readln(s); https://www.cyberforum.ru/ pascal/ thread768733.html |
Фрилансер
![]() |
|
22.01.2013, 14:42 | 0 |
Написать программу, которая подсчитывает количество слов в предложении. - Pascal - Ответ 403813622.01.2013, 14:42. Показов 1732. Ответов 1
Метки (Все метки)
Ответ
https://www.cyberforum.ru/pascal/thread768772.html
Вот не давно такая задача решена была,парой тем вниз Вернуться к обсуждению: Написать программу, которая подсчитывает количество слов в предложении. Pascal
0
|
22.01.2013, 14:42 | |
Готовые ответы и решения:
1
Разработать программу, которая подсчитывает количество однокоренных слов
|
22.01.2013, 14:42 | |
Помогаю со студенческими работами здесь
0
Написать программу, которая подсчитывает количество слов, начиающихся с согласной Составить программу которая подсчитывает количество слов в тексте. Составить программу которая подсчитывает количество слов в текстовом файле
|
Новые блоги и статьи
![]() |
||||
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
|
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
|
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
|
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
|
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
|
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
|
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
|
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
|
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
|
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
|