![]() |
|
Другие темы раздела | |
Turbo Pascal Вычислить значение выражения r:=sqrt(sqr(a)+sqr(b))/sqrt(1-sqr(y)) var a, b, y, r: real; begin readln(a, b, y); r:=sqrt(sqr(a)+sqr(b))/sqrt(1-sqr(y)); writeln(r); end. |
Меньшее из чисел умножить на 3 Turbo Pascal Написать программу создания 2-х динамических целочисленных переменных.ввести их значения с терминала и меньшее из них умножить на 3 Вот правильное Уверен? Если не окажется свободной памяти и New завершится с ошибкой, то указатель останется равным нулю, произойдёт запись по нулевому адресу (где в реальном режиме находится вектор... |
Turbo Pascal Ввывод на экран
https://www.cyberforum.ru/ turbo-pascal/ thread328606.html Помогите прописатьв программе чтобы после ввода матриц они выводились на экран) Зарание спс) Текст программы: Program Fellix; uses crt; type mas=array of integer; mas1=array of integer; Var... Program Fellix; uses crt; type mas=array of integer; mas1=array of integer; Procedure Vvod(var a:mas; var n,m:integer;c:char); var i,j:integer; begin writeln('Введи размеры матрицы ',c);... |
Turbo Pascal Организовать поиск наибольшего элемента массива из н вещественых чисел рекурсианвм способом Организовать поиск наибольшего элемента массива из н вещественых чисел рекурсианвм способом uses crt; type mas=arrayof integer; var a:mas; n,i:integer; function Max(n:integer):integer; var w:integer; begin if n>1 then begin w:=Max(n-1); https://www.cyberforum.ru/ turbo-pascal/ thread328468.html |
Turbo Pascal Паскаль Графика
https://www.cyberforum.ru/ turbo-pascal/ thread328464.html Нарисовать на фоне пейзажа периодически движущийся закрашенный прямоугольник. Движение из точки с координатами (0,0) в точку с координатами (640, 400). Размеры прямоугольника ввести с клавиатуры.... Берете координаты левого верхнего угла x,y. Сначала х=0, y=0. чтобы этот угол попал точно в точку (640,400) нужно взять dx/dy=640/400=8/5 например dx:=8; dy:=5; можно и 16/10 и т.д., но лучше... |
Turbo Pascal Вычислить значение выражения
https://www.cyberforum.ru/ turbo-pascal/ thread328704.html Нужна помощь по решении этого примера for i:=1 to 20 do s:=s+i*i-3*i+1; |
Изобразить летящего комара Turbo Pascal Ребят даны такие задачи: 1.Циссоида: x3+(x-a)y2=0, a>0. Воспользуйтесь параметрическим представлением: x=at^2/1+t^2,y=at^3/1+t^2,-∞ < t < +∞. 2.Изобразить летящего комара Заранее спасибо. 1. https://www.cyberforum.ru/free-pascal/thread296472.html?uri=/free-pascal/thread296472.html https://www.cyberforum.ru/turbo-pascal/thread291928.html?uri=/turbo-pascal/thread291928.html |
Turbo Pascal Определить сумму цифр числа
https://www.cyberforum.ru/ turbo-pascal/ thread328478.html дано натуральное число N.Определить: а)сумму цифр; б)есть ли в записи числа цифра "5". uses crt; var n,s:longint; f:boolean; begin clrscr; write('n='); readln(n); s:=0; f:=false; while n>0 do |
Turbo Pascal график функции
https://www.cyberforum.ru/ turbo-pascal/ thread328562.html построение графика функции f(x)=a+b+c^dx+f посмотри тут https://www.cyberforum.ru/pascal/thread1980.html |
Turbo Pascal Вычислить систему неравенств
https://www.cyberforum.ru/ turbo-pascal/ thread328702.html Помощь в решении В задании вообще глупость написана, с интервалами бардак. |
Turbo Pascal Школьная. Пожалуйста помогите, учусь в девятом классе, не врубаюсь: Определите периметры треугольников, заданных координатами их вершин А(5,2); В(5,2); С(5,2). Длину стороны треугольника вычислить в... uses crt; var x1,x2,x3,y1,y2,y3:integer; p,ab,bc,ac:real; procedure dlina (var dl:real;x,xx,y,yy:integer ); begin dl:=(sqrt(sqr(x-xx)+sqr(y-yy))); end; begin https://www.cyberforum.ru/ turbo-pascal/ thread328668.html |
Turbo Pascal Изменить информацию в поле <оклад> для записей с заданным табельным номером 1.Создать набор данных содержащих сведения о сотрудниках учреждения. Записи упорядочить по табельному номеру. Структура записи: ... Uses crt; Const max = 100; Type TData = record fam,dol: string; num,stag: byte; oklad: word end; TDataArray = array of TData; |
0 / 0 / 0
Регистрация: 01.07.2011
Сообщений: 19
|
|
02.07.2011, 08:44 [ТС] | 0 |
Все четные элементы файла записать во второй файл и отсортировать их в порядке возрастания - Turbo Pascal - Ответ 181184602.07.2011, 08:44. Показов 1405. Ответов 14
Метки (Все метки)
Ответ
да, какой адрес?
Вернуться к обсуждению: Все четные элементы файла записать во второй файл и отсортировать их в порядке возрастания Turbo Pascal
0
|
02.07.2011, 08:44 | |
Готовые ответы и решения:
14
Все четные числа файла записать во второй файл, а нечетные — в третий файл Все четные числа файла записать во второй файл, а нечетные — в третий |
02.07.2011, 08:44 | |
Помогаю со студенческими работами здесь
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-фреймворков, предоставляет. . .
|