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

Вывести на экран номер четверти координатной плоскости, которой принадлежит точка с координатами

05.01.2012, 18:20. Просмотров 11986. Ответов 12
Метки нет (Все метки)


Задача № 56
Дано двузначное число
Определить :
а) входной ли в него цифра 3;
в) входит ли в него цифра а;

№107. Вывести на экран номер четверти координатной плоскости, которой принадлежит точка с координатами (х, у), при условии, что д: не равен 0 и у не равен 0.

можете посмотреть задачку здесь стр 45 номер 4 http://inf1.my1.ru/urok/Inform_Zlat.pdf плизззз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2012, 18:20
Ответы с готовыми решениями:

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

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

Условный оператор: Выведите на экран номер четверти, которой принадлежит точка с координатами (х,у), при условии, что х и у отличны от 0
1 задача. Выведите на экран номер четверти, которой принадлежит точка с координатами (х,у), при...

Определить номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами
Помогите, пожалуйста, решить задачу на Паскале! Описать функцию Quarter(x, y) целого типа,...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
12
SuPeR XaKer
05.01.2012, 18:34
  #2
 Комментарий модератора 
фунтик, сразу два нарушения 1) называйте темы информативно. 2) один вопрос-одна тема.
Будем считать это первым предупреждением. Я надеюсь вы поняли что до трёх предупреждений дотягивать не стоит?
1
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 29
05.01.2012, 19:10  [ТС] 3
вот например задача по if мы так расписываем все подробно
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
52
53
54
55
56
57
program gg;
var x1,y1,x2,y2,ch,ch1:integer;
begin
writeln('vvedite x1, x2');
readln(x1);
writeln('vvedite y1');
readln(y1);
writeln('vvedite x2');
readln(x2);
writeln('vvedite y2');
readln(y2);
if (x1>0) and (y1>0)then
begin
 ch:=1;
writeln('1-chetvert');
end;
if (x1<0) and (y1>0)then
begin
ch:=2;
writeln('2-chetvert');
end;
if (x1<0) and (y1<0)then
begin
 ch:=3;
writeln('3-chetvert');
end;
if (x1>0) and (y1<0)then
begin
 ch:=4;
writeln('4-chetvert');
end;
if (x2>0) and (y2>0)then
begin
 ch1:=1;
writeln('1-chetvert');
end;
if (x2<0) and (y2>0)then
begin
ch1:=2;
writeln('2-chetvert');
end;
if (x2<0) and (y2<0)then
begin
 ch1:=3;
writeln('3-chetvert');
end;
if (x2>0) and (y2<0)then
begin
 ch1:=4;
writeln('4-chetvert');
end;
if (ch=ch1) then
writeln('chetverti ravni')
else
writeln('chetverti ne ravni');
readln;
end.
Добавлено через 1 минуту
я на 2 курсе и мы ещё не всё прошли
0
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,873
07.01.2012, 12:04 4
фунтик, Давай подключай остатки мозга и хоть что-то сам напиши.
Вот под буквой а из книжки, остальное сам. Ну а № 107 вообще очень просто, хорош халявничать и срамиться.
Pascal
1
2
3
4
5
6
7
8
uses crt;
var i:integer;
begin
clrscr;
for i:=0 to 15 do
writeln(i+10,'  ',i+10,'.4');
readln
end.
0
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 29
07.01.2012, 12:08  [ТС] 5
я вот эти не понимаю которые пишу! а так у нас практика и мы решаем по 10 задач в день! чё трудно помочь!
0
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,873
07.01.2012, 12:14 6
Цитата Сообщение от фунтик Посмотреть сообщение
чё трудно помочь!
А чё, те не помогали? В смысле халяву не писали?
0
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 29
07.01.2012, 12:17  [ТС] 7
писали ! спасибо большое всем!
0
216 / 122 / 99
Регистрация: 14.03.2011
Сообщений: 626
07.01.2012, 12:31 8
фунтик, ты где это так учишься? если это тебе по специальности надо, то слово не понимаю, думаю тут не уместно... надо разбираться... я на первом курсе тоже нифига не понимала, разбиралась. просто совет Ищи книжки, читай примеры, построй алгоритм на листке, что тебе делать надо, а там и решение найдется.

№107. Вывести на экран номер четверти координатной плос*
кости, которой принадлежит точка с координатами (х, у), при
условии, что д: не равен 0 и у не равен 0.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var x,y:integer;
begin
writeln('vvedite kkordinati tochki po x');
readln(x);
writeln('vvedite kkordinati tochki po y');
readln(y);
if (x>0) and (y>0) then writeln('tocka prinadlejit pervoj chetverti');
if (x<0) and (y>0) then writeln('tocka prinadlejit vtoroj chetverti');
if (x<0) and (y<0) then writeln('tocka prinadlejit tretiej chetverti');
if (x>0) and (y<0) then writeln('tocka prinadlejit chetvertoj chetverti');
readln;
end.
кидаю только из-за того, что была сделана когда-то на практике...
1
Почетный модератор
7955 / 3926 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
07.01.2012, 12:32 9
Цитата Сообщение от фунтик Посмотреть сообщение
№107. Вывести на экран номер четверти координатной плос*
кости, которой принадлежит точка с координатами (х, у), при
условии, что д: не равен 0 и у не равен 0.
фунтик, ты почыти такую задачу в примере привел =) (только удалить кое-что надо)
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
program gg;
var x1,y1,ch:integer;
begin
writeln('vvedite x1');
readln(x1);
writeln('vvedite y1');
readln(y1);
if (x1>0) and (y1>0)then
begin
 ch:=1;
writeln('1-chetvert');
end;
if (x1<0) and (y1>0)then
begin
ch:=2;
writeln('2-chetvert');
end;
if (x1<0) and (y1<0)then
begin
 ch:=3;
writeln('3-chetvert');
end;
if (x1>0) and (y1<0)then
begin
 ch:=4;
writeln('4-chetvert');
end;
readln;
end.
0
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 29
07.01.2012, 12:59  [ТС] 10
Chertenok_n_13 посоветуй книжки!
0
216 / 122 / 99
Регистрация: 14.03.2011
Сообщений: 626
07.01.2012, 13:03 11
фунтик, не надо писать с восклицательными знаками... эмоции потише... тебе в самом деле советуют как лучше...
Pascal FAQ
там две ссылки... по ним можно найти много чего...
0
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 29
07.01.2012, 13:07  [ТС] 12
я просто написал с восклицательным знаком ! чё ты все в штыки воспринимаешь то.......я добрый мальчик

Добавлено через 36 секунд
солнышко не злись

Добавлено через 1 минуту
спасибо за ссылкуChertenok_n_13
0
216 / 122 / 99
Регистрация: 14.03.2011
Сообщений: 626
07.01.2012, 13:14 13
я малая учила по этому учебнику и для того возраста все понимала:
Турбо Паскаль 7.0 - 7-е изд. (Для пользователя). BHV-Kиeв. если найдешь где скачать конечно, хотя можно издание и выше... их там как минимум 12
хотя вот еще несколько:
http://pascal.guti.ru/
http://amberv.narod.ru/pascal2.html

Не по теме:

и я не солнышко

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.01.2012, 13:14

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

Вывести на экран номер четверти,которой принадлежит точка с координатами (x,y) ,
1)Вывести на экран номер четверти,которой принадлежит точка с координатами (x,y) , при условии ,что...

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

Вывести на экран номер четверти, которой принадлежит точка с координатами (X, Y)
Вывести на экран номер четверти, которой принадлежит точка с координатами (x, Y), при условии, что...

Вывести на экран номер координатной плоскости, которой принадлежит точка
С клавиатуры вводятся координаты точки x и y. Вывести на экран номер координатной плоскости,...


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

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

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