Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
anton))
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 5
1

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

29.04.2010, 00:27. Просмотров 1748. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2010, 00:27
Ответы с готовыми решениями:

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

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

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

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

Вычислить радиус окружности по введённой с клавиатуры площади окружности
Напишите программу, которая вычисляет радиус окружности по введённой с...

4
Maror
25 / 25 / 20
Регистрация: 28.04.2010
Сообщений: 50
29.04.2010, 00:45 2
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
кот Бегемот
Платежеспособный зверь
8502 / 3940 / 1536
Регистрация: 28.10.2009
Сообщений: 10,229
29.04.2010, 00:51 3
ещё проще так:
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
anton))
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 5
29.04.2010, 12:15  [ТС] 4
а можешь остальные задания решить а я тебе на телефон лаве кину???)
0
кот Бегемот
Платежеспособный зверь
8502 / 3940 / 1536
Регистрация: 28.10.2009
Сообщений: 10,229
29.04.2010, 12:42 5
Обратитесь во фриланс, там с радостью помогут
http://www.cyberforum.ru/order-program/
1
29.04.2010, 12:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2010, 12:42

площадь кольца, ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d
Помогите пожалуйста с задачей Вычислите площадь кольца, ширина которого...

Вычислить, пересекаются ли отрезки?
Заданы координаты начала и конца двух отрезков в декартовой системе...

Пересекаются ли данные прямоугольники
Помогите пожалуйста с этой задачей, завтра экзамен и мне надо получить зачет по...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru