Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/22: Рейтинг темы: голосов - 22, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
1

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

05.11.2009, 16:30. Просмотров 4525. Ответов 4
Метки нет (Все метки)

Приветствую будущих коллег=)у меня вот проблемка...надо 3 задачки написать...помогите плиииииз)))

1. Заданы координаты двух точек на плоскости. Составьте программу, определяющую, какая из точек удалена от начала координат на большее расстояние.
2. Синоптики объявляют погоду на ближайшие дни: 1 – солнце, 2 – дождь, 3 – туман, 4 – ветер. Зная нужную вам погоду, вы принимаете определенное решение: жду нужную погоду, либо – беру отгул, которое выводится на экран. Программа запрашивает ввод нужной погоды и выводит на экран ваше решение на каждый день.
3. for Составить таблицу стоимости порции сыра весом в 50, 100, 15, …, 1000 г (цена одного килограмма сыра определяется по запросу). Результат вывести в виде таблицы:
0 1 2 3 4 5 6 7 8 9
50
100
……………………………..
1000
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2009, 16:30
Ответы с готовыми решениями:

Определить какая из точек наименее удалена от начала координат
Даны координаты точек А(х0, у0) и В(х1, у1). Определить какая из точек А или В наименее удалена...

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

Определить, какая из трех точек на плоскости наиболее удалена от начала координат
Разработать метод f(x1, y1, x2, y2), который вычисляет длину отрезка по координатам вершин (x1,...

Какая из трех точек на плоскости наиболее удалена от начала координат
Помогите пожалуйста решить задачку (в консольном приложении) // Разработать метод который...

4
Платежеспособный зверь
8727 / 4140 / 1603
Регистрация: 28.10.2009
Сообщений: 11,182
05.11.2009, 23:43 2
Если это для тебя проблема, то насчет будущих коллег ты слишком ответственно заявил.
0
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,187
06.11.2009, 01:03 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1. Заданы координаты двух точек на плоскости. Составьте программу, определяющую, какая из точек удалена от начала координат на большее расстояние.
Возможно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program k;
Uses crt;
Var x1,x2,y1,y2:integer;
Begin
Clrscr;
Writeln('Введите координаты первой точки: ');Read(x1,y1);
Writeln('Введите координаты второй точки: ');Read(x2,y2);
If (abs(x1)>abs(x2)) and (abs(y1)>abs(y2)) then
Writeln('Первая точка удалена на большее расстояние от начала координат, чем вторая')
else Writeln('Вторая точка удалена на большее расстояние от начала координат, чем первая');
End.
Добавлено через 42 минуты
2. Синоптики объявляют погоду на ближайшие дни: 1 – солнце, 2 – дождь, 3 – туман, 4 – ветер. Зная нужную вам погоду, вы принимаете определенное решение: жду нужную погоду, либо – беру отгул, которое выводится на экран. Программа запрашивает ввод нужной погоды и выводит на экран ваше решение на каждый день.
Вы это хотели увидеть?
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
Program pogoda;
Uses crt;
Var p,k:byte;
Begin
Clrscr;
Writeln('Возможные варианты состояния погоды: ');
Writeln('<1>   Дождь');
Writeln('<2>   Туман');
Writeln('<3>   Ветер');
Writeln('<4>   Солнце');
k:=1;
Repeat
Case p of
1: writeln('Беру отгул');
2,3: writeln('Жду нужную погоду');
end;
Write(k,'-й день: ');
Write('Введите номер, соответствующий состоянию погоды: ');Read(p);
Writeln;
k:=k+1;
Until p=4;
{Следующую строку добавил от себя}
Writeln('Иду на работу');
End.
Добавлено через 20 минут
3. for Составить таблицу стоимости порции сыра весом в 50, 100, 15, …, 1000 г (цена одного килограмма сыра определяется по запросу). Результат вывести в виде таблицы:
0 1 2 3 4 5 6 7 8 9
50
100
……………………………..
1000
Вот что-то похожее на правду:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program sir;
Uses crt;
Var k,m:integer;s:real;
Begin
Clrscr;
Repeat
Write('Введите цену одного кг. сыра (в рубл.): ');Read(k);
Write('Введите массу (в граммах): ');Readln(m);
s:=(m*k)/1000;
Writeln('Стоимость сыра массой в ',m,' г. = ',s:3:1,' р.');
Writeln;
Until m=1000;
End.
На счёт того, как организовать вывод в табличном варианте, подумайте сами.
0
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
07.11.2009, 16:06  [ТС] 4
первые две все подошло=))) спасибо=))) а вот последнюю я думала что надо делать через i,to,do,down... и вот не знаю как...может еще кто поможет?
0
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
07.11.2009, 16:24 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

for_tuna, вот 3:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i,x:integer;
  price:real;
begin
  readln(price);
  x:=50;
  for i:=1 to 20 do
  begin
    writeln('Öåíà çà ',x,'ã ñûðà = ',(price*x)/1000);
    inc(x,50)
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2009, 16:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить, какая из двух точек (x1,y1) и (x2,y2) больше удалена от центра координат
Определить, какая из двух точек (x1,y1) и (x2,y2) больше удалена от центра координат. ...

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

Определить, какая из точек находится дальше от начала координат
На площині дано дві точкі. Визначити, яка з них заходиться далі від початку координат. На площине...

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


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

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

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