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

@omsk_mail · Регистрация: 01.02.2010

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

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

Pascal

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

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

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

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

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

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

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.

Все. Вопрос по поводу кодировки языка. Как сделать что-б по русски было???

@WolfCF · 01.02.2010, 12:52

Сообщение от omsk_mail

Для введенного целого числа определить, делится ли оно нацело на два, три или на пять.

Pascal

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

Хакеры и программисты данного ресурса.

верное слово программисты,хакеров здесь нет!

@omsk_mail · 01.02.2010, 12:57 **[ТС]**

Вопросы программы ('Введите число X:') например

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

А Остальные работы правильно написаны??

@WolfCF · 01.02.2010, 12:59

Сообщение от omsk_mail

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

правый ctrl+shift на русский язык переключиться.

Сообщение от omsk_mail

Остальные работы правильно написаны??

не смотрел,если ответ правильный выдает,значит все правильно

@omsk_mail · 01.02.2010, 13:01 **[ТС]**

Спасибо.

@omsk_mail · 03.02.2010, 11:39 **[ТС]**

Проверьте пожалуйста где СОБАКА-ЗАРЫТА

Pascal

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

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, обычная доска объявлений, помощи не дождешся.

@WolfCF · 03.02.2010, 11:45

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

@кот Бегемот · 03.02.2010, 11:46

Не по теме:

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

@omsk_mail 1 / 1 / 0 Регистрация: 01.02.2010 Сообщений: 10
	01.02.2010, 12:57 [ТС]	3
	Вопросы программы ('Введите число X:') например Добавлено через 4 минуты Или это (русский язык) не поддерживается в принципе??? Можно и транс литом обойтись. А Остальные работы правильно написаны?? 0

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

@omsk_mail 1 / 1 / 0 Регистрация: 01.02.2010 Сообщений: 10
	01.02.2010, 13:01 [ТС]	5
	Спасибо. 0

@WolfCF 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