|
паскаль
|
|
| lordke | Дата: Понедельник, 2009-09-28, 3:35 PM | Сообщение # 16 |
|
Бакалавр
Группа: Проверенные
Сообщений: 147
Репутация: 23
Замечания: 20%
Статус: Offline
Город: Волжский
| kykc, в той программе с begin и end ты слегка переборщил, так что даже в той программе можно на 4 строчки меньше сделать 
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
ВолГТУ ФЭВТ (информатика и вычислительная техника)
|
| |
| |
| kykc | Дата: Понедельник, 2009-09-28, 6:10 PM | Сообщение # 17 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| lordke, вообщето все правильно, сам проверяй, идет прога если совпадает значение значит конец, если нет идем дальше!
А ты мне шас впарить наверно хочешь чтобы было если совпадает значит пишим и идем дальше проверять пока до конца недойдем, иди УЧИСЬ Добавлено (2009-09-28, 6:10 Pm)
---------------------------------------------
lordke, если неверишь, тогда попробуй переписать прогу без begin & end, у тя она незаработает как надо
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
|
| |
| |
| Lucifier | Дата: Понедельник, 2009-09-28, 7:15 PM | Сообщение # 18 |
Почетный академик
Группа: Проверенные
Сообщений: 2304
Репутация: 286
Замечания: 80%
Статус: Offline
| вы тут с куксом не спорьте,он аццкий мега-флудеро-кодер 
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
|
| |
| |
| lordke | Дата: Понедельник, 2009-09-28, 8:18 PM | Сообщение # 19 |
|
Бакалавр
Группа: Проверенные
Сообщений: 147
Репутация: 23
Замечания: 20%
Статус: Offline
Город: Волжский
| kykc,
var
z, x, y: real;
begin
writeln('введите числa "x" и "у" ');
readln(х, y);
if (х>7) and ((x-y)>0.5)
then
z:=(x+8*y)*(x-y); writeln(z);
else
if x<0
then
z:=0.25; writeln(z);
else
z:= 4*x+3y; writeln(z)
end.
Хочешь сказать не заработает?
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
ВолГТУ ФЭВТ (информатика и вычислительная техника)
|
| |
| |
| kykc | Дата: Понедельник, 2009-09-28, 9:13 PM | Сообщение # 20 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| хы))) наверное в тот день когды писал перегрелсо)) Добавлено (2009-09-28, 9:13 Pm)
---------------------------------------------
lordke сказать по секрету, йа до 15.09.2009 незнал что такое паскаль, в школе ипашил токо на QB, йа не такой маньяк навено как ты на ИВТ епт
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
Сообщение отредактировал kykc - Понедельник, 2009-09-28, 9:13 PM |
| |
| |
| lordke | Дата: Вторник, 2009-09-29, 9:32 PM | Сообщение # 21 |
|
Бакалавр
Группа: Проверенные
Сообщений: 147
Репутация: 23
Замечания: 20%
Статус: Offline
Город: Волжский
| А все таки в исправленном варианте прога не заработает
var
z, x, y: real;
begin
writeln('введите числa "x" и "у" ');
readln(х, y);
if (х>7) and ((x-y)>0.5)
then
z:=(x+8*y)*(x-y)
else
if x<0
then
z:=0.25
else
z:= 4*x+3y; writeln(z);
end.
вот правильный вариант(и наиболее экономичный )
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
ВолГТУ ФЭВТ (информатика и вычислительная техника)
|
| |
| |
| Creestall | Дата: Вторник, 2009-09-29, 9:47 PM | Сообщение # 22 |
Магистр
Группа: Проверенные
Сообщений: 281
Репутация: 21
Замечания: 0%
Статус: Offline
Город: Самара
| а че это за программа??? не дадите ссылочку...
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
http://vkontakte.ru/id15814958
|
| |
| |
| kykc | Дата: Среда, 2009-09-30, 12:17 PM | Сообщение # 23 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| Quote (lordke) вот правильный вариант(и наиболее экономичный )
LOL!!!!!!!!!!!!!!
вроде помоему щас ты чтото смозгавал нето)))))) помоему небуит выдавать Z)))Добавлено (2009-09-30, 12:17 Pm)
---------------------------------------------
Quote (Creestall) а че это за программа??? не дадите ссылочку...
сматри название темы и первое сообщение
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
|
| |
| |
| lordke | Дата: Среда, 2009-09-30, 11:50 PM | Сообщение # 24 |
|
Бакалавр
Группа: Проверенные
Сообщений: 147
Репутация: 23
Замечания: 20%
Статус: Offline
Город: Волжский
| Нет последний вариант будет работать, а в прошлом точка с запятой стояли перед else (что недопустимо)!
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
ВолГТУ ФЭВТ (информатика и вычислительная техника)
|
| |
| |
| kykc | Дата: Четверг, 2009-10-01, 6:57 PM | Сообщение # 25 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| Quote (lordke) а в прошлом точка с запятой стояли перед else
ГЫ твайа ошибка гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
|
| |
| |
| NAS371 | Дата: Суббота, 2009-10-10, 6:39 PM | Сообщение # 26 |
|
Абитуриент
Группа: Пользователи
Сообщений: 1
Репутация: 0
Замечания: 0%
Статус: Offline
| Помогите пожалуйста.
Даны X и Y, вводятся с клавиатуры. Если X и Y отрицательны, то каждое значение заменить его модулем. Если отрицательно только одно из них, то оба значения увеличить на 3. Если оба значения неотрицательны, то большее из них уменьшить на разность между ними, а меньшее увеличить в 10 раз. Заренее благодарен)
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
|
| |
| |
| pro100_andrew | Дата: Воскресенье, 2010-05-09, 9:18 PM | Сообщение # 27 |
|
Магистр
Группа: Проверенные
Сообщений: 242
Репутация: 15
Замечания: 0%
Статус: Offline
Город: Сыктывкар, Петербург
| var
k, x, y: real;
begin
writeln('введите числa "x" и "у" ');
readln(х, y);
if (х<0) and ((y<0)
then
x:=abs(x)
y:=abs(y)
else
if (x<0) and (y>0)
then
x:=3*x
y:=3*y
else
if (y<0) and (x>0)
then
x:=3*x
y:=3*y
else
k:=x-y;
if k>o
then
x:=k+x;
y:=10*y
else
y:=k+y;
x:=10*x
end. поправьте, пожалуйста))
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
пм-пу
|
| |
| |
| incover | Дата: Воскресенье, 2010-05-09, 9:40 PM | Сообщение # 28 |
Нобелевский лауреат
Группа: Проверенные
Сообщений: 3033
Репутация: 731
Замечания: 100%
Статус: Offline
Город: Pacha|Ibiza
| program q123312312;
var
k, x, y: real;
begin
writeln('введите числa "x" и "у" ');
readln(x, y);
if (x<0) and (y<0)
then
begin
x:=abs(x);
y:=abs(y)
end
else
if (x<0) and (y>0)
then
begin
x:=3*x;
y:=3*y
end
else
if (y<0) and (x>0)
then
begin
x:=3*x;
y:=3*y
end
else
begin
k:=x-y;
if k>0
then
begin
x:=k+x;
y:=10*y
end
else
y:=k+y;
x:=10*x
end;
writeln('y=',y:3:3,'x=',x:3:3)
end.
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
|
| |
| |
| BSS | Дата: Воскресенье, 2010-05-09, 9:58 PM | Сообщение # 29 |
Почетный академик
Группа: Проверенные
Сообщений: 2111
Репутация: 654
Замечания: 0%
Статус: Offline
Город: Алматы-Новосибирск-СПб
| Меня забавит , то что вы тут пишите
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
Экфак СПбГУ - 2курс!
Всеm всего хорошего! Форуm реально поmог в 2010.
|
| |
| |
| incover | Дата: Воскресенье, 2010-05-09, 10:00 PM | Сообщение # 30 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 3033
Репутация: 731
Замечания: 100%
Статус: Offline
Город: Pacha|Ibiza
| BSS, гы гы гы че смешного? гы гы гы тема древняя к томуже гы гы гы
Варианты ЕГЭ 2026 Дальний Восток
Егэ Дальний Восток 2026
|
| |
| |
