|
|
| Другие темы раздела | |
|
Turbo Pascal Создать каталог файлов 3. Создать каталог файлов. Выберите и занесите в отдельный файл сведения о файлах, размер которых превышает заданное число байтов. Структура записи файла: имя и тип файла, дата создания и размер... Uses Crt; Type Fail=Record Name,Data:string; Typ:string; Razmer:integer; End; Var f,g:file of Fail; st:Fail; i,n,m:integer; Begin |
Turbo Pascal Сформируйте массив из лучших учеников школы, т.е. из учеников, не имеющих отметок ниже 4 и по сумме баллов, не уступающих другим ученикам. 1. Сведения об ученике состоят из имени, фамилии, названия класса(год обучения и буквы),оценок за прошедшую четверть. Пусть дан массив, содержащий сведения об учениках школы. Сформируйте массив из... и по сумме баллов, не уступающих другим ученикам. это значит что у всех "лучших" учеников должна быть максимальная сумма баллов? я пока что без этого сделаю... Добавлено через 1 минуту и... https://www.cyberforum.ru/ turbo-pascal/ thread645558.html |
|
Написать функцию, находящую среднее арифметическое элементов матрицы Turbo Pascal 2. Написать функцию, находящую среднее арифметическое элементов матрицы. 2. uses crt; const m=10; const z=10; type array1 = array of integer; function SrA(var n,r: integer; mas1: array1): integer; {Начало функции} var l,k,s,sredn: integer; begin s:=0; for... |
Turbo Pascal Файлы: выписать все арифметические выражения и вычислить их значения
https://www.cyberforum.ru/ turbo-pascal/ thread645434.html дан файл, содержащий текст и арифметические выражения вида а*в, где *- один из знаков +,-,*,/. выписать все арифметические выражения и вычислить их значения. только если a и b - целые числа uses crt; var f: text; i: byte; s,sa,sb,ss: string; a,b,j: integer; r: real; begin |
|
Turbo Pascal Подсчитать количество строк и столбцов не содержащих отрицательных элементов Дана матрица. Подсчитать количество строк и столбцов не содержащих отрицательных элементов. const Rows = 5; Colls = 5; var Matrix: Array of Integer; Count, CountRows, CountColls: Integer; i, j: Byte; begin Randomize; CountRows:=0; CountColls:=0; |
Turbo Pascal Определить, совпадает ли количество служебных слов BEGIN и END
https://www.cyberforum.ru/ turbo-pascal/ thread645441.html дан файл, содержащий текст программы на Pascal'e. составить программу, определяющую, совпадает ли количество служебных слов BEGIN и END. если в каждой строке записано не более одного оператора, тогда uses crt; var f: text; s: string; k: integer; begin assign(f,'D:\in.pas'); reset(f); while not (eof(f)) do begin |
|
Turbo Pascal Определить, в какой строке матрицы находятся наибольшее количество симметричных чисел
https://www.cyberforum.ru/ turbo-pascal/ thread645579.html 2. Пусть дана прямоугольная матрица АNxM, элементами которой являются целые числа. Определите, в какой строке матрицы находятся наибольшее количество симметричных чисел. Составьте функцию и... Модуль Unit Simetriya; Interface Function Simet(n:integer):boolean; Implementation Function Simet; Var s,s1:string; i:byte; Begin Str(n,s); |
Найти произведение суммы положительных элементов матрицы на их количество Turbo Pascal Помогите составить коды к задачам. Очень надо 3)Обработка двухмерных массивов: Найти произведение суммы положительных элементов на их количество матрицы. Часть кода: sum:=0; s:=0; for i:=1 to N do for j:=1 to N do if a>0 then begin sum:=sum+a; s:=s+1; end; write(sum*s); |
|
Turbo Pascal Телефонный справочник (Turbo Vision) Система содержит справочную информацию: имя (ФИО или название организации), номер телефона, адрес, тип (физическое лицо или организация). Она позволяет: просматривать список абонентов, пополнять... |
Turbo Pascal Вычислить сумму и количество элементов массива, имеющих нечетный индекс Помогите разобраться. Вычислить сумму и количество элементов массива Т(12), имеющих нечетный индекс s:=0; for i:=1 to 12 do if i mod 2=0 then s:=s+a; https://www.cyberforum.ru/ turbo-pascal/ thread645498.html |
|
Записать в файл С все четные числа файла F, а в файл N - все нечетные. Turbo Pascal сформировать файл F, компонентами которого являются целые числа. записать в файл С все четные числа файла F, а в файл N - все нечетные. порядок следования чисел сохраняется. uses crt; var f,c,n:file of integer; k,i,b:integer; begin clrscr; randomize; assign(f,'fileF'); rewrite(f); assign(c,'fileC'); rewrite(c); |
Turbo Pascal Найти произведение модулей наибольшего отрицательного и наименьшего четного элемента массива
https://www.cyberforum.ru/ turbo-pascal/ thread645570.html Помогите составить коды к задачам. Очень надо 2)Нахождение наибольшего и наименьшего элементов массива: Найти произведение модулей наибольшего отрицательного и наименьшего четного элемента массива... uses crt; const n=12; var e:array of integer; i,mx,mn,p:integer; begin clrscr; writeln('Введите элементы массива, целые положительные и отрицательные числа'); mx:=0; mn:=0; for i:=1 to n... |
|
Just Respect
|
|
| 03.09.2012, 20:14 | 0 |
Найти количество элементов массива больше числа -5 - Turbo Pascal - Ответ 341513503.09.2012, 20:14. Показов 1392. Ответов 2
Метки (Все метки)
Ответ
Спасибо огромное!!
Вернуться к обсуждению: Найти количество элементов массива больше числа -5 Turbo Pascal |
|
| 03.09.2012, 20:14 | |
|
Готовые ответы и решения:
2
Найти количество элементов массива больше числа -5
|
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 03.09.2012, 20:14 | |
|
Помогаю со студенческими работами здесь
0
Найти четные элементы массива, которые больше числа A и их количество Найти номер тех элементов массива, которые больше своего правого соседа, и количество таких элементов. |
Новые блоги и статьи
|
||||
|
Циклы for в Python
py-thonny 17.03.2025
Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .
|
Предсказание ветвлений - путь к высокопроизводительному C++
NullReferenced 17.03.2025
В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .
|
Паттерн CQRS в C#
UnmanagedCoder 17.03.2025
Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .
|
Паттерн Цепочка ответственности в C#
UnmanagedCoder 17.03.2025
Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .
|
Создаем микросервисы с NestJS, TCP и Typescript
run.dev 17.03.2025
NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
|
|
Гексагональная архитектура со Spring Boot
Javaican 17.03.2025
Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .
|
Позиционирование Kafka Consumer и Seek-операции
Javaican 17.03.2025
Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .
|
Python NumPy: Лучшие практики и примеры
py-thonny 17.03.2025
NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .
|
Java Micronaut в Docker: контейнеризация с Maven и Jib
Javaican 16.03.2025
Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .
|
Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2
Javaican 16.03.2025
Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .
|
Наверх