|
Задача на график №2
|
|
| ViRuS | Дата: Вторник, 25.11.2008, 04:35 | Сообщение # 1 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Пожалуйста помогите! Вот условие: 
|
| |
| |
| Alexander | Дата: Вторник, 25.11.2008, 04:45 | Сообщение # 2 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Code if x<=1 then
y:=abs(x)
else if x>2 then
y:=5-2*x
else
y:=1;
Скажем дружно- нафиг нужно!
|
| |
| |
| ViRuS | Дата: Вторник, 25.11.2008, 06:35 | Сообщение # 3 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Alexander, как я понял тут осталось только описать переменные ну и бегин и енд, правильно? СПС БОЛЬШУЩЕЕ!!!! с меня +
Сообщение отредактировал ViRuS - Вторник, 25.11.2008, 06:35 |
| |
| |
| Seqular | Дата: Вторник, 25.11.2008, 06:52 | Сообщение # 4 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Alexander, ViRuS, ничего не забыли?
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| ViRuS | Дата: Вторник, 25.11.2008, 06:54 | Сообщение # 5 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Seqular, а что именно??? Подскажи если видишь 
|
| |
| |
| Seqular | Дата: Вторник, 25.11.2008, 07:21 | Сообщение # 6 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| а если x = 0.5?
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| ViRuS | Дата: Вторник, 25.11.2008, 07:29 | Сообщение # 7 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| ну если x=0.5 , то идём по Code if x<=1 then
y:=abs(x) |
| |
| |
| Alexander | Дата: Вторник, 25.11.2008, 08:04 | Сообщение # 8 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Quote (ViRuS) вроде правильно?
ага, ходют тут и народ шугают понимаешь...=)
Скажем дружно- нафиг нужно!
|
| |
| |
| ViRuS | Дата: Среда, 26.11.2008, 00:26 | Сообщение # 9 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Ребят зацените, вот я немного подъизменил и полностью написал прогу: Code Program zadanie7;
Var x,y: real;
begin
label start;
writeln ('Введите X');
readln (x);
if x<=1 then
y:=abs(x)
else if (x>=2) and (x<=3) then
y:=5-2*x
else if (x>1) and (x<2) then
y:=1
else
begin
writeln ('Для введённого значения X, нет значения Y.');
readln;
goto start;
end;
writeln ('Для введённого значения X, соответствует значение Y=',y:8:4);
readln;
end. Но вот блин чёт label по нормальному не хочет работать!
|
| |
| |
| Alexander | Дата: Среда, 26.11.2008, 01:14 | Сообщение # 10 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| метки в заголовке описываются.
Скажем дружно- нафиг нужно!
|
| |
| |
| ViRuS | Дата: Среда, 26.11.2008, 05:40 | Сообщение # 11 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Всё разобрался, нашёл ошибку!!! Ну а так впринцепи вроде правильная прога
Сообщение отредактировал ViRuS - Среда, 26.11.2008, 05:41 |
| |
| |
| Seqular | Дата: Среда, 26.11.2008, 06:19 | Сообщение # 12 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Метки в топку!!! Долой label!!!
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
