![]() |
|
Другие темы раздела | |
Задача, вопрос не сколько в делфи, сколько в физике) Turbo Pascal Вообщем так, есть две вселенные 1 и 2, с координатами центра (x1, y1) и (x2, y2) У каждой вселенной есть свой радиус (r1) и (r2) сответственно. Радиус расширяется по формуле r1+v1*t и r2+v2*t,... Поскольку вещественные числа в машинном представлени никогда не равны, вводится понятие погрешности, у Вас она 10^-6. Поэтому условие равенства суммы радиусов и расстояния между центрами окружностей... |
Turbo Pascal Присвоения max2:=min и min2:=max
https://www.cyberforum.ru/ turbo-pascal/ thread14611.html Что в этом коде: program Kolibabchuk; uses crt; var i,n,max,min,pmax,pmin,max2,min2: integer; a: array of integer; s:real; begin write('Введите кол-во чисел: '); readln(n); {как... В таком случае после первого цикла min будет минимумом, max максимумом. Второй цикл ничего меньше и больше уже не найдёт. |
Поиск чисел, состоящих из одинаковых цифр Turbo Pascal Суть такая, дано число от одного до 10 000, надо в выходном файле написать количество натуральных чисел меньших данного, у которого все фифры десятичной записи различны. Я написал, но не понимаю,... Да в принципе все не так. Вот я написал основное, разберешся, доделаешь по своему. var N:integer; i,kr:integer; function RazCif(a:longint):boolean; {функция определяет разные цифры или нет}... |
Что такое Var и в чём различие между логическими типами данных Turbo Pascal Объясните мне,пожалуйста что такое Var и в чём различие между логическими типами данных:help: Для Boolean истина - единица, ложь - ноль. Для остального истина - любое ненулевое значение. Ord() даёт при этом 1, всякие сравнения с true и тому подобное проходит верно. |
Turbo Pascal Самоучитель по паскалю Какой самоучитель по паскалю лучше для полного нуба? Начинать буду с нуля, знаний никаких. :) самый лучший самоучитель по паскалю - эт его хелп )))) Хотя не всегда - некоторые интересные вещи можно в книжках вычитать... но в самом начале тыркаешь Ctrl+F1 и серфишь нужные функции ) https://www.cyberforum.ru/ turbo-pascal/ thread14543.html |
Turbo Pascal Нахождение третьего по величие числа в массиве
https://www.cyberforum.ru/ turbo-pascal/ thread14614.html Нужна идея, как найти третье число в массиве. Добавлено через 6 минут 44 секунды Третье по величине сисло, а если нет трех разных цифр, тогда ответ выдавать -1 Добавлено через 1 час 33 минуты... Когда проспишься и в голове у тебя перестанут путаться мин и макс с прочими цифрами, тогда напишешь. Что ты вначале просил, то я и сделал, а если каждые 5 минут у тебя генерируются новые идеи, твои... |
Turbo Pascal Найти максимальную толщину краски на трубе отряд пионеров красил трубу 30 км.Каждому пионеру было поручено красить свой участок.однако их вожатый что-то напутал и не которые участки были покрашены не сколько раз.Каждый пионер красил трубу... Всё вроде как норм (З.Ы. прогу не тестил), тока немного не согласен вот с этим: if (x1<=x2) and (x2>=x1) then Ведь если x1=x2 и x2=x1 это означает что перекрытий нету, ну это можно представить... |
Turbo Pascal Удалить из массива все элементы, у которых первая и вторая цифры одинаковые
https://www.cyberforum.ru/ turbo-pascal/ thread14811.html 1.Дан массив целых чисел n элементов, заполненый случайным образом числами из промежутка удалить из него все элементыЭ у которых первая и вторая цифры одинаковые. Program marazm; uses crt; var a:array of integer; i:integer; begin randomize; for i:=0 to 100 do a:=random(280)-140; {заполнение массива} |
Turbo Pascal Найти все общие делители чисел Дано два целие числа m,n.Найти все общие делители этих чисел. Слушай глянь Сюда... Сделай своё задание сам. https://www.cyberforum.ru/ turbo-pascal/ thread14834.html |
Turbo Pascal Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
https://www.cyberforum.ru/ turbo-pascal/ thread14681.html помогите пожалуйста решить пару простеньких задач....никогда просто на паскале не работала а тут задали такое....ппц 1)Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр... А вот и вторая: program cyb31; var s: string; i: byte; b: boolean; begin writeln('VVedite tekst: '); readln(s); |
Turbo Pascal Упорядочить массив состоящий из букв латинского алфавита Скажите, как упорядочить массив состоящий из букв латинского алфавита. в аллфавитном порядке, то есть есил сначала был hello то станет ehllo Вообще не придумать. то есть надо юзать ord? они в orde попорядку идут? буквы латинского алфавита идут по порядку только не в orde, а в таблице ASCII. Можно конечно сравнивать коды символов и напрямую ord(array) >... https://www.cyberforum.ru/ turbo-pascal/ thread14678.html |
Turbo Pascal Задача, изменение строки. Что не так? Вообщем такая фишка, во входном файле первая строка. Это строка над которой измываемся. Во второй строке количество операций N, которые будем производить над строкой. Операций тока две, одна -... он меньше чем строка занимает места между прочим.При равном числе элементов массива и строки, строка занимает только на один байт больше (в нем длина строки хранится), когда работать с ней гораздо... |
![]() 3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
|
|
31.10.2008, 03:14 | 0 |
Заменить максимальный элемент каждой строки на противоположный по знаку - Turbo Pascal - Ответ 6657931.10.2008, 03:14. Показов 2260. Ответов 4
Метки (Все метки)
Ответ
держи твоя 2-ая:
Код
Program xa; var a:array[1..100,1..100] of real; m,n,i,j,k:integer; max:real; begin Writeln('Bbedute m u n'); {m kolu4ecTBo Ctpok, Hy a n kol-Bo ctoLbL/oB} Write('m='); readln(m); Write('n='); readln(n); Writeln('Bbedute Cam MaccuB'); for i:=1 to m do for j:=1 to n do begin write('a[' ,i, ',' ,j, ']='); readln(a[i,j]); end; Writeln('matPuL/a do u3MeHeHUu'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:8:3); Writeln; end; writeln; for i:=1 to m do begin max:=a[i,1]; k:=1; for j:=2 to n do if a[i,j]>max then begin max:=a[i,j]; k:=j end; a[i,k]:=-1*a[i,k] end; Writeln('noLy4uBLLIeeC9 matPuL/a'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:8:3); Writeln; end; readln; end. Вернуться к обсуждению: Заменить максимальный элемент каждой строки на противоположный по знаку Turbo Pascal
0
|
31.10.2008, 03:14 | |
Готовые ответы и решения:
4
Заменить максимальный элемент каждой строки матрицы на противоположный |
31.10.2008, 03:14 | |
Помогаю со студенческими работами здесь
0
Заменить максимальный эллемент на противоположный по знаку Заменить максимальный элемент каждой строки на противоположный
|
Новые блоги и статьи
![]() |
||||
Система безопасности в 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-фреймворков, предоставляет. . .
|
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
|
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
|
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
|
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
|