Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/26: Рейтинг темы: голосов - 26, средняя оценка - 4.77
1 / 1 / 0
Регистрация: 01.02.2010
Сообщений: 10
1

Определить, какая из точек находится ближе к началу координат

01.02.2010, 12:30. Просмотров 5199. Ответов 7
Метки нет (Все метки)

Хакеры и программисты данного ресурса. Взываю к Вашему милосердию. Помогите с работами для института, ваще полная ж... Горю, нужно сдавать работы.
Вот что у меня есть и что еще нужно:
Задание на создание программы (ветвление)

Вопрос: Для двух чисел Х и У, вводимых с клавиатуры, на экран дисплея вывести sin большего числа и cos меньшего.
Ответ:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program xy;
 
uses crt;
 
var
   x, y: real;
 
begin
   ClrScr;
   Write  ('Введите число X:');
   ReadLn(x);
   WriteLn;
   Write  ('Введите число Y:');
   ReadLn(y);
   WriteLn;
 
   If x = y then
   begin
   Writeln('Числа Х и Y равны. Запустите программу еще раз с разными значениями Х и Y');
   ReadLn;
   exit;
   end;
 
   If x > y then
   begin
   writeln('Большим является X и синус числа равен:',sin(x):3:3);
   writeln('Меньшее - Y и его косинус:',cos(y):3:3);
   end
   else
   begin
   writeln('Большим является Y и синус числа равен:',sin(y):3:3);
   writeln('Меньшее - X и его косинус:',cos(x):3:3);
   end;
 
   Readln;
end.

Для введенного целого числа определить, делится ли оно нацело на два, три или на пять.
Решения и листинга нет.
Необходимо сделать.!!!

Вопрос:Линейные структуры, стандартные функции -- Найти значение функции
где a=0,5, b=3,2. Значение x>0 (тип данных: Real) вводится с клавиатуры.
Решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program func;
 
uses crt;
 
const
     a = 0.5;
     b = 3.2;
 
var
   f, x: real;
 
begin
 
   ClrScr;
   Write('Введите число X, оно должно быть > 0: ');
   ReadLn(x);
   Writeln;
 
   If x <= 0 then
   begin
   writeln('Число X <= 0. Запустите программу заново с Х > 0.');
   readln;
   exit;
   end;
 
   f := exp(2*x)*sin(a+x)/cos(a+x)-exp(ln(b)*3*x)*sin(b-x)/cos(b-x);
 
   writeln('Значение функции f = e^2x*tg(a+x) - b^3x*tg(b-x), при a = 0.5, b = 3.2,  равно: ',f:5:3);
   readln;
end.
Вопрос: Ветвление -- Даны две точки: A(x1, y1) и B(x2, y2). Определить, какая из точек находится ближе к началу координат. Координаты точек вводятся с клавиатуры
Решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program koor;
 
uses crt;
 
var
   x1,x2,y1,y2 : integer;
   res1, res2  : real;
 
begin
   ClrScr;
   Write  ('Введите через пробел координаты точки А:');
   Read(x1);
   Read(y1);
   WriteLn;
   Write  ('Введите через пробел координаты точки B:');
   Read(x2);
   Read(y2);
   WriteLn;
 
   res1 := sqrt(sqr(x1)+sqr(y1));
   res2 := sqrt(sqr(x2)+sqr(y2));
 
   if res1 = res2 then
   begin
   writeln('Точки A и B симметричны отностительно начала координат');
   ReadLn;
   exit;
   end;
 
   if res1 < res2 then
   writeln('Точка А находится ближе к началу координат.')
   else
   writeln('Точка B находится ближе к началу координат.');
 
   Readln;
end.
Вопрос:Циклы (все три вида: For, While, Repeat) -- Дана последовательность из N произвольных целых чисел. Написать программу, которая определяет, сколько в этой последовательности отрицательных чисел, кратных 5
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program sequence;
 
uses crt;
 
var
   seq: array[1..100] of integer;
   n, i, cnt: integer;
   r: real;
 
 
begin
     clrscr;
     write('Введите длину последовательности чисел: ');
     readln(n);
     for i:=1 to n do
       begin
           Write('Введите значение ',i,' элемента массива: ');
           readln(seq[i]);
       end;
 
     for i:=1 to n do
         if (seq[i] < 0) and (abs(frac(seq[i]/5)) = 0) then
         cnt := cnt + 1;
 
     write('В последоватеьности из ',n,' чисел: ');
     for i:=1 to n do
           Write(seq[i],' ');
 
     writeln;
     write('В этой последовательности отрицатеьных чисел кратных 5 - ',cnt);
     readln;
 
end.
Вопрос:Двумерные массивы -- Заполнить массив по следующему правилу: элементы главной диагонали равны 3, ниже главной диагонали – 1, а выше – сумме индексов
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program arrays;
 
uses crt;
 
var
   seq: array [1..100,1..100] of integer;
   i, j, m, n: integer;
 
begin
     clrscr;
     write('Через пробел введите размерность двумерного массива: ');
     read(m);
     readln(n);
     writeln('Массив заполнился следующим образом:');
 
   for i:=1 to m do
       begin
       for j:=1 to n do
       begin
       if i < j then
       seq[i,j] := i + j;
       if i = j then
       seq[i,j] := 3;
       if i > j then
       seq[i,j] := -1;
       write(seq[i,j],' ');
       end;
       writeln;
       end;
 
   readln;
 
end.
Вопрос:Строковые величины -- Найти, сколько раз в предложении встречаются заглавные гласные буквы
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program strings;
 
uses crt;
 
const
     st = 'АЕИОУЫЭЮЯ';
 
var
   str: string;
   i, cnt: integer;
 
begin
     clrscr;
     write('Введите строку для обработки: ');
     readln(str);
 
     for i := 1 to length(str) do
         if pos(str[i],st) <> 0 then
         cnt := cnt + 1;
 
     writeln;
     writeln('В строке: ',str);
     writeln;
     write('Заглавных гласных букв - ',cnt);
     readln;
end.
Вопрос:Записи -- Построить массив записей о студентах. Каждая запись должна содержать фамилию, группу, срок обучения. Рассчитать для каждого студента, сколько месяцев осталось до окончания обучения
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program records;
 
uses crt;
 
type
    Tinfo = record
         Family: string[20];
         Group: string[5];
         Srok: integer;
         end;
 
var
    info: array [1..100] of Tinfo;
    term: array [1..100] of Integer;
    n, i, tmp, err: integer;
 
 
begin
     clrscr;
     write('Введите количество студентов: ');
     readln(n);
     Writeln('Через пробел введите фамилию студента, его группу и срок обучения в месяцах: ');
     for i := 1 to n do
         begin
         with info[i] do
              begin
              write('Введите фамилию ',i, ' студента: ');
              readln(family);
              write('Введите группу ',i, ' студента: ');
              readln(group);
              write('Введите срок обучения ',i, ' студента: ');
              read(srok);
              end;
         end;
 
     for i := 1 to n do
         begin
         with info[i] do
              begin
              val(copy(group,1,1),tmp,err);
              if err = 0 then
              term[i] := srok - tmp  * 12;
              end;
         end;
 
     for i := 1 to n do
         begin
         writeln('Для студента ',info[i].family,' осталось учиться ',term[i],' месяцев');
         end;
     readln;
end.
Все. Вопрос по поводу кодировки языка. Как сделать что-б по русски было???
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.02.2010, 12:30
Ответы с готовыми решениями:

Определите, какая из двух точек находится ближе к началу координат
Составьте программу, решающую следующую задачу: Даны две точки с координатами x1, y1, x2,y2....

Даны две точки А(х1, у1) и В(х2, у2). Определить, которая из точек находится ближе к началу координат
Даны две точки А(х1, у1) и В(х2, у2). Определить, которая из точек находится ближе к началу...

Какая из точек ближе к началу координат
Даны четыре вещественных числа Xa, Ya, Xb, Yb, являющиеся коррдинатами точек А и В на плоскости....

Даны координаты двух точек Определить какая из них находится дальше от начала координат
Даны координаты двух точек Определить какая из них находится дальше от начала координат

7
3301 / 1362 / 109
Регистрация: 28.04.2009
Сообщений: 4,822
01.02.2010, 12:52 2
Цитата Сообщение от omsk_mail Посмотреть сообщение
Для введенного целого числа определить, делится ли оно нацело на два, три или на пять.
Pascal
1
2
3
4
5
6
7
8
var n:integer;
begin
writeln('vvedite chislo');
readln(n);
if (n mod 5=0) or (n mod 3=0)or (n mod 2=0) then writeln('da')
else writeln('net');
readln;
end.
Добавлено через 35 секунд
Цитата Сообщение от omsk_mail Посмотреть сообщение
Вопрос по поводу кодировки языка. Как сделать что-б по русски было???
что должно быть по-русски?

Добавлено через 28 секунд
Цитата Сообщение от omsk_mail Посмотреть сообщение
Хакеры и программисты данного ресурса.
верное слово программисты,хакеров здесь нет!
0
1 / 1 / 0
Регистрация: 01.02.2010
Сообщений: 10
01.02.2010, 12:57  [ТС] 3
Вопросы программы ('Введите число X:') например

Добавлено через 4 минуты
Или это (русский язык) не поддерживается в принципе???
Можно и транс литом обойтись.

А Остальные работы правильно написаны??
0
3301 / 1362 / 109
Регистрация: 28.04.2009
Сообщений: 4,822
01.02.2010, 12:59 4
Цитата Сообщение от omsk_mail Посмотреть сообщение
Вопросы программы ('Введите число X:') например
Добавлено через 4 минуты
Или это (русский язык) не поддерживается в принципе???
Можно и транс литом обойтись.
правый ctrl+shift на русский язык переключиться.

Цитата Сообщение от omsk_mail Посмотреть сообщение
Остальные работы правильно написаны??
не смотрел,если ответ правильный выдает,значит все правильно
1
1 / 1 / 0
Регистрация: 01.02.2010
Сообщений: 10
01.02.2010, 13:01  [ТС] 5
Спасибо.
0
1 / 1 / 0
Регистрация: 01.02.2010
Сообщений: 10
03.02.2010, 11:39  [ТС] 6
Проверьте пожалуйста где СОБАКА-ЗАРЫТА
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program records;
 
uses crt;
 
type
    Tinfo = record
         Family: string[20];
         Group: string[5];
         Srok: integer;
         end;
 
var
    info: array [1..100] of Tinfo;
    term: array [1..100] of Integer;
    n, i, tmp, err: integer;
 
 
begin
     clrscr;
     write('Введите количество студентов: ');
     readln(n);
     Writeln('Через пробел введите фамилию студента, его группу и срок обучения в месяцах: ');
     for i := 1 to n do
         begin
         with info[i] do
              begin
              write('Введите фамилию ',i, ' студента: ');
              readln(family);
              write('Введите группу ',i, ' студента: ');
              readln(group);
              write('Введите срок обучения ',i, ' студента: ');
              read(srok);
              end;
         end;
 
     for i := 1 to n do
         begin
         with info[i] do
              begin
              val(copy(group,1,1),tmp,err);
              if err = 0 then
              term[i] := srok - tmp  * 12;
              end;
         end;
 
     for i := 1 to n do
         begin
         writeln('Для студента ',info[i].family,' осталось учиться ',term[i],' месяцев');
         end;
     readln;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program koor;
 
uses crt;
 
var
   x1,x2,y1,y2 : integer;
   res1, res2  : real;
 
begin
   ClrScr;
   Write  ('Введите через пробел координаты точки А:');
   Read(x1);
   Read(y1);
   WriteLn;
   Write  ('Введите через пробел координаты точки B:');
   Read(x2);
   Read(y2);
   WriteLn;
 
   res1 := sqrt(sqr(x1)+sqr(y1));
   res2 := sqrt(sqr(x2)+sqr(y2));
 
   if res1 = res2 then
   begin
   writeln('Точки A и B симметричны отностительно начала координат');
   ReadLn;
   exit;
   end;
 
   if res1 < res2 then
   writeln('Точка А находится ближе к началу координат.')
   else
   writeln('Точка B находится ближе к началу координат.');
 
   Readln;
end.
Добавлено через 18 часов 48 минут
Людиии добрые ну кто может решить

Добавлено через 2 часа 37 минут
Я так понимаю только WOLF на форуме (тот человек который может помочь, остальные Нет) одно название cyberforum, обычная доска объявлений, помощи не дождешся.
0
3301 / 1362 / 109
Регистрация: 28.04.2009
Сообщений: 4,822
03.02.2010, 11:45 7
Если бы для каждой задачи создали бы отдельную тему,то помогли бы. А кода много букавок,то он отпугивают всех.
1
кот Бегемот
03.02.2010, 11:46     Определить, какая из точек находится ближе к началу координат
  #8

Не по теме:

мальчик, соблюдай правила форума и не надо будет хамить.
1 задача - 1 тема. Ты выкладываешь в теме 10 задач и наивно веришь, что тебе их все решат. Тут тебе никто ничем не обязан.
Учти, что если я вижу в твоей теме 5 ответов, я вряд ли полезу туда шестым, только если там глупость пишут.
Умей быть благодарным, грубость и хамство ещё никому не помогли, тем более, что тебе ещё жить, и не ровён час, снова придёшь.

1
03.02.2010, 11:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.02.2010, 11:46
Привет! Вот еще темы с ответами:

Определить, какая из двух точек расположена ближе к началу координат
Задача 4.Определить какая из двух точек M1(x1,y1) или M2 (X2,y2) расположена ближе к началу...

Определить, какая из точек находится ближе к началу координат
Написать программу, которая по заданным координатам двух точек на плоскости определяет, какая из...

Определить которая из точек находится ближе к началу координат
. Даны две точки А(x1, y1) и B(x2, y2). Определить которая из точек находится ближе к началу...

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


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

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

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