Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 5

Пересекаются ли окружности.

29.04.2010, 00:27. Показов 3363. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1 Даны целые числа N и M. Найти на интервале <от меньшего из них до большего из них> все целые числа, модули которых являются кубами целых чисел.

2 Даны две окружности одинакового радиуса R, заданные координатами их центров (X1,Y1),(X2,Y2) – целыми числами. Определить, пересекаются ли они, в этом случае вычислить координаты (вещественные числа) точек их пересечения.

3
- Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки.
- Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры.
- В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки.
- Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать.
- В заголовок окна программы записать свои данные: имя, фамилию и номер варианта.

Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1 swty +12_3‘

Напечатать:

Группы символов, состоящие только из латинских букв, если в них есть повторяющиеся буквы.

4
- Ввести произвольную размерность квадратной матрицы в интервале 1..10.
- Предложить ввод данных (чисел целого типа) двумя способами:
1. Через датчик случайных чисел на интервале -100..100.
2. С клавиатуры в виде «Х[i],[j]=», где i и j – числа, соответствующие номеру строки и столбца.
- После окончания ввода данных вывести на экран матрицу в отформатированном виде по строкам и столбцам.
Например:
2 5 -12
11 18 3
23 -31 72
- Обработать данные согласно заданию в варианте и вывести результат.
- Если результатами вычислений являются вещественные числа, то выводить их с точностью до 2-х знаков после точки.

. Найти среднее арифметическое из всех положительных элементов этой матрицы, если они кратны 3.


5
- Ввести произвольную размерность одномерного массива в интервале 1..10.
- Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х[i]=», где i – индекс элемента.
- После окончания ввода для контроля данных вывести на экран массив.
- Обработать данные в подпрограмме (тип подпрограммы и способ обработки указан в вариантах) и вывести результат.
- Ввод данных и вывод результатов на экран должны производиться в головной программе, все вычисления – в подпрограммах. Оформить подпрограммы в отдельном модуле. Подключить модуль к головной программе.
- Все символьные элементы считать вводимыми только в нижнем регистре.
- Если результатами вычислений являются вещественные числа, то выводить их с точностью до 1-го знака после точки.

. Массив целых чисел. В процедуре удалить из массива четные элементы. Размерность итогового массива должна уменьшиться
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
29.04.2010, 00:27
Ответы с готовыми решениями:

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

На плоскости даны две окружности. Требуется проверить, пересекаются ли они
На сайте решаю задачу, на моём компе всё работает а там не принимает пишет ошибка компиляции: На плоскости даны две окружности. Требуется...

Определить, пересекаются ли окружности, в этом случае вычислить координаты точек их пересечения
Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они,...

4
71 / 57 / 34
Регистрация: 28.04.2010
Сообщений: 197
29.04.2010, 00:45
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var m,n,i,j:longint;
begin
writeln('Enter m, n');
readln(m,n);
if (m>n) then begin
  for i:=n to m do begin
    for j:=1 to i do begin
    if j*j*j=abs(i) then write(i:6);
    end;
  end;
end;
if (n>m) then begin
  for i:=m to n do begin
    for j:=1 to i do begin
    if j*j*j=abs(i) then write(i:6);
    end;
  end;
end;
readln;
end.
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
29.04.2010, 00:51
ещё проще так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var t,m,n,i,j:longint;
begin
writeln('Enter m, n');
readln(m,n);
if m>n then begin
t:=m;
m:=n;
n:=t;
end;
if (n>m) then begin
  for i:=m to n do begin
    for j:=1 to i do begin
    if j*j*j=abs(i) then write(i:6);
    end;
  end;
end;
readln;
end.
1
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 5
29.04.2010, 12:15  [ТС]
а можешь остальные задания решить а я тебе на телефон лаве кину???)
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
29.04.2010, 12:42
Обратитесь во фриланс, там с радостью помогут
https://www.cyberforum.ru/order-program/
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.04.2010, 12:42
Помогаю со студенческими работами здесь

Выяснить, пересекаются, не пересекаются или касаются линии
Дана прямая y=kx+b и окружность x*x+y*y=r*r выяснить пересекаются, не пересекаются или касаются эти линии с геометрией йа не в ладах,...

На плоскости даны две окружности. Требуется проверить, пересекаются ли они
На плоскости даны две окружности. Требуется проверить, пересекаются ли они. Входные данные Входной файл INPUT.TXT состоит из двух...

На плоскости даны две окружности. Требуется проверить, пересекаются ли они
На плоскости даны две окружности. Требуется проверить, пересекаются ли они. Входные данные Входной файл INPUT.TXT состоит из двух...

Определить, пересекаются ли параболы y = ax2+bx+c и y = dx2+mx+n. Если пересекаются, то найти точку пересечения
Определить, пересекаются ли параболы y = ax2+bx+c и y = dx2+mx+n. Если пересекаются, то найти точку пересечения

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru