паскаль - Страница 2 - ФОРУМ ПОСТУПИМ.РУ

паскаль

lordke

Дата: Понедельник, 2009-09-28, 3:35 PM | Сообщение # 16

Бакалавр

Группа: Проверенные

Сообщений: 147

Репутация: 23

Награды: 1

Замечания: 20%

Статус: Offline

Город: Волжский

kykc, в той программе с begin и end ты слегка переборщил, так что даже в той программе можно на 4 строчки меньше сделать smile

ВолГТУ ФЭВТ (информатика и вычислительная техника)

kykc

Дата: Понедельник, 2009-09-28, 6:10 PM | Сообщение # 17

Академик

Группа: Проверенные

Сообщений: 1237

Репутация: 1175

Награды: 111

Замечания: 100%

Статус: Offline

lordke, вообщето все правильно, сам проверяй, идет прога если совпадает значение значит конец, если нет идем дальше!
А ты мне шас впарить наверно хочешь чтобы было если совпадает значит пишим и идем дальше проверять пока до конца недойдем,

иди УЧИСЬ

Добавлено (2009-09-28, 6:10 Pm)
---------------------------------------------
lordke, если неверишь, тогда попробуй переписать прогу без begin & end, у тя она незаработает как надо

Lucifier

Дата: Понедельник, 2009-09-28, 7:15 PM | Сообщение # 18

Почетный академик

Группа: Проверенные

Сообщений: 2304

Репутация: 286

Награды: 125

Замечания: 80%

Статус: Offline

вы тут с куксом не спорьте,он аццкий мега-флудеро-кодер biggrin

lordke

Дата: Понедельник, 2009-09-28, 8:18 PM | Сообщение # 19

Бакалавр

Группа: Проверенные

Сообщений: 147

Репутация: 23

Награды: 1

Замечания: 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.
Хочешь сказать не заработает?

ВолГТУ ФЭВТ (информатика и вычислительная техника)

kykc

Дата: Понедельник, 2009-09-28, 9:13 PM | Сообщение # 20

Академик

Группа: Проверенные

Сообщений: 1237

Репутация: 1175

Награды: 111

Замечания: 100%

Статус: Offline

хы))) наверное в тот день когды писал перегрелсо))

Добавлено (2009-09-28, 9:13 Pm)
---------------------------------------------
lordke сказать по секрету, йа до 15.09.2009 незнал что такое паскаль, в школе ипашил токо на QB, йа не такой маньяк навено как ты на ИВТ епт

Сообщение отредактировал kykc - Понедельник, 2009-09-28, 9:13 PM

lordke

Дата: Вторник, 2009-09-29, 9:32 PM | Сообщение # 21

Бакалавр

Группа: Проверенные

Сообщений: 147

Репутация: 23

Награды: 1

Замечания: 20%

Статус: Offline

Город: Волжский

А все таки в исправленном варианте прога не заработает smile

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.
вот правильный вариант(и наиболее экономичный smile

)

ВолГТУ ФЭВТ (информатика и вычислительная техника)

Creestall

Дата: Вторник, 2009-09-29, 9:47 PM | Сообщение # 22

Магистр

Группа: Проверенные

Сообщений: 281

Репутация: 21

Награды: 5

Замечания: 0%

Статус: Offline

Город: Самара

а че это за программа??? не дадите ссылочку...

http://vkontakte.ru/id15814958

kykc

Дата: Среда, 2009-09-30, 12:17 PM | Сообщение # 23

Академик

Группа: Проверенные

Сообщений: 1237

Репутация: 1175

Награды: 111

Замечания: 100%

Статус: Offline

Quote (lordke)

вот правильный вариант(и наиболее экономичный )

LOL!!!!!!!!!!!!!!
вроде помоему щас ты чтото смозгавал нето)))))) помоему небуит выдавать Z)))

Добавлено (2009-09-30, 12:17 Pm)
---------------------------------------------

Quote (Creestall)

а че это за программа??? не дадите ссылочку...

сматри название темы и первое сообщение

lordke

Дата: Среда, 2009-09-30, 11:50 PM | Сообщение # 24

Бакалавр

Группа: Проверенные

Сообщений: 147

Репутация: 23

Награды: 1

Замечания: 20%

Статус: Offline

Город: Волжский

Нет последний вариант будет работать, а в прошлом точка с запятой стояли перед else (что недопустимо)!

ВолГТУ ФЭВТ (информатика и вычислительная техника)

kykc

Дата: Четверг, 2009-10-01, 6:57 PM | Сообщение # 25

Академик

Группа: Проверенные

Сообщений: 1237

Репутация: 1175

Награды: 111

Замечания: 100%

Статус: Offline

Quote (lordke)

а в прошлом точка с запятой стояли перед else

ГЫ твайа ошибка гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы гы

NAS371

Дата: Суббота, 2009-10-10, 6:39 PM | Сообщение # 26

Абитуриент

Группа: Пользователи

Сообщений: 1

Репутация: 0

Награды: 0

Замечания: 0%

Статус: Offline

Помогите пожалуйста.
Даны X и Y, вводятся с клавиатуры. Если X и Y отрицательны, то каждое значение заменить его модулем. Если отрицательно только одно из них, то оба значения увеличить на 3. Если оба значения неотрицательны, то большее из них уменьшить на разность между ними, а меньшее увеличить в 10 раз.

Заренее благодарен)

pro100_andrew

Дата: Воскресенье, 2010-05-09, 9:18 PM | Сообщение # 27

Магистр

Группа: Проверенные

Сообщений: 242

Репутация: 15

Награды: 0

Замечания: 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.

поправьте, пожалуйста))

пм-пу

incover

Дата: Воскресенье, 2010-05-09, 9:40 PM | Сообщение # 28

Нобелевский лауреат

Группа: Проверенные

Сообщений: 3033

Репутация: 731

Награды: 101

Замечания: 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.