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

координаты ПАскаль почти решил

11.01.2011, 11:36. Просмотров 556. Ответов 3
Метки нет (Все метки)


почему постоянно пишет не входит
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
program grafiki;
var x,y : integer;
begin
writeln ( ' vvedite koordinaty ');
readln ( x, y);
if x= 0 then for y:= 4 to -3 do begin 
writeln ( 'vxodit');
end;
if x= 1 then for y:= 4 to -3 do begin 
writeln ( 'vxodit');
end;
if x= 2 then for y:= 4 to -3 do begin 
writeln ( 'vxodit');
end;
if x= 3 then for y:= 0 to -3 do begin 
writeln ( 'vxodit');
end;
if x= 4 then for y:= 0 to -3 do begin 
writeln ( 'vxodit');
end;
if x= 5 then for y:= 0 to -3 do begin 
writeln ( 'vxodit');
end;
if x= -1 then for y:= 4 to -3 do begin 
writeln ( 'vxodit');
end;
if x= -2 then for y:= 4 to -3 do begin 
writeln ( 'vxodit');
end;
if x= -3 then for y:= 0 to -3 do begin 
writeln ( 'vxodit');
end;
if x= -4 then for y:= 0 to -3 do begin 
writeln ( 'vxodit')
end
else  writeln ( 'ne vxodit');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2011, 11:36
Ответы с готовыми решениями:

Я решил Задачу на Произвольную Пространственную Систему Сил, решил систему из 5 неизвестных, КАК СДЕЛАТЬ ПРОВЕРКУ РЕШЕНИЯ ?
КАК СДЕЛАТЬ ПРОВЕРКУ РЕШЕНИЯ ?? ПРОВЕРКУ НЕ СИСТЕМЫ, А САМОГО РЕШЕНИЯ, то есть сумму моментов...

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

Даны координаты вершин треугольника и координаты некоторой точки внутри него
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от...

Даны координаты вершин треугольника и координаты некоторой точки внутри него
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от...

3
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4165 / 1272 / 229
Регистрация: 27.07.2009
Сообщений: 3,944
11.01.2011, 11:39 2
Цитата Сообщение от bogatyr Посмотреть сообщение
for y:= 4 to -3 do
Цитата Сообщение от bogatyr Посмотреть сообщение
for y:= 0 to -3 do
это как?
Цитата Сообщение от bogatyr Посмотреть сообщение
почему постоянно пишет не входит
потому, что ты Х всегда вводишь не равным -4
0
179 / 179 / 81
Регистрация: 18.12.2010
Сообщений: 346
11.01.2011, 11:46 3
Цитата Сообщение от bogatyr Посмотреть сообщение
Pascal
1
for y:= 4 to -3 do begin
Либо поменяй порядок пределов:
Pascal
1
for y:= -3 to 4 do begin
- либо пиши downto вместо to :
Pascal
1
for y:= 4 downto -3 do begin
Добавлено через 4 минуты
кстати, а что за задача? при ближайшем рассмотрении код приводит к некоторому недоумению..
0
0 / 0 / 0
Регистрация: 04.12.2010
Сообщений: 20
14.01.2011, 16:23  [ТС] 4
там по графикам просто график необычный
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2011, 16:23

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

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

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

Vb.net directx, slimdx преобразовать экранные координаты мыши в 3d координаты
vb.net directx, slimdx преобразовать экранные координаты мыши в 3d координаты необходимо...

Заданы координаты трех вершин прямоугольника, необходимо определить координаты четвертой вершины
Заданы координаты трех вершин прямоугольника. Необходимо определить координаты четвертой вершины....


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

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

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