VPF::Помогите с контрольной в институт

Coocky

Дата 27.11.2005, 17:55 (ссылка)

(нет голосов)

Загрузка ...

GUI гуру

Профиль
Группа: Участник Клуба
Сообщений: 2879
Регистрация: 16.2.2004
Где: Украина. Запорожь е

Репутация: нет
Всего: 62

Ребята, очень прошу выручить. У меня обсолютно нет времени, а здать нужно в четверг. Нет времени учить Паскаль, да и компилятора нет, что б проверить.
Помогите, кто может! Задание для знающих-несложные. Как по мне, так писать на С++ всего час.Если знать его.
Мне надо эти задания в прикрепленном файле на Турбо Паскаль.
Первые задания-всего лишь синтаксис, а не программа, а второе короткие программы. Для одного может и лень, но может кто возмет одно-два задания. С миру по нитке-голому рубаха smile

Очень прошу -до четверга.
Ответа можно постить здесь.
Всем заранее огромное спасибо!
С меня всем плюсы, к сожалению большим не могу отблагодарить smile

Присоединённый файл ( Кол-во скачиваний: 27 )

_________________________________.doc 62,00 Kb

--------------------

Верю в смерть после жизни, в любовь после секса ,в крем после бритья smile

Rick

Дата 27.11.2005, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: 2
Всего: 3

извини дурачка,
мы вводим x и y программа выводит результат, я правильно понял? smile

--------------------

Не бывает атеистов в окопах под огнем

eskaflone

Дата 27.11.2005, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 5.11.2005

Репутация: 2
Всего: 3

первая половина ::

Код


var x,y,a,b,c,res: real;

А  res := exp (x * ln((x + 1)/(x - 1))) + 18 * x * y;
Б  res := exp (x) - x - 2 + (1 + sqr(x));
В  res := ln (abs (cos(x)))/ln (abs (1 + sqr(x)));
Г  res := x * ln (x) + y / (cos(x) + x/3);
Д  res := (b + sqrt(sqr(b) + 4 * a * c))/2 * a - a * a * a * c + 1/sqr(b);
Е  res := x - 10 * sin(x) + abs (sqr(sqr(x)) - sqr(sqr(x)) * x);
Ж   res := (3 + exp(y - 1)) / (1 + sqr(x) * abs (y - sin(x)/cos(x)));
З  res := 0.25 - cos (x) + sin (2 * x * y);

вроде так.

Zero

Дата 27.11.2005, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 3
Всего: 24

Если уж модератор правила нарушает, то наверно действительно серьёзная проблема... smile

Цитата(Coocky @ 27.11.2005, 18:55)

Как по мне, так писать на С++ всего час

Хе-хе, поэтому я и не люблю С++, на нём простейшие вещи, всё время затягиваются, а вот на паске... 5 сек.

Код


program A;
var
  x,F:integer;
begin
  write('Input x=');
  readln(x);
  if (x>=0) and (x<=3) then
    F:=x*x
  else
    F:=4;
  writeln('Output F=',F);
end.

Код


program B;
var
  x,F:integer;
begin
  write('Input x=');
  readln(x);
  if x>=3 then
    F:=-x*x-3*x+9
  else
    F:=1/(x*x*x-6)
  writeln('Output F=',F);
end.

Код


program V;
var
  x:integer;
  F:real;
begin
  write('Input x=');
  readln(x);
  if x>=7 then
    F:=-x*x
  else
    F:=exp(-x*ln(2))/(x*x-9);
  writeln('Output F=',F);
end.

Код


program G;
var
  x,F:real;
begin
  write('Input x=');
  readln(x);
  if x>=3.5 then
    F:=4*x*x+2*x-19
  else
    F:=-(2*x)/(-4*x+1);
  writeln('Output F=',F);
end.

Код


program D;
var
  x,F:real;
begin
  write('Input x=');
  readln(x);
  if (x>=-2.4) and (x<=5.7) then
    F:=x*x
  else
    F:=4;
  writeln('Output F=',F);
end.

Код


program E;
var
  x,F:real;
begin
  write('Input x=');
  readln(x);
  if x<=13 then
    F:=-x*x*x+9
  else
    F:=x/(x+1);
  writeln('Output F=',F);
end.

Код


program G;
var
  x,F:real;
begin
  write('Input x=');
  readln(x);
  if x<=7 then
    F:=3*x-9
  else
    F:=1/(x*x-4);
  writeln('Output F=',F);
end.

Код


program I;
var
  x,F:real;
begin
  write('Input x=');
  readln(x);
  if x>0 then
    F:=ln(x)+9
  else
    F:=-x/(x*x-7);
  writeln('Output F=',F);
end.

Код


program K;
var
  x,F:real;
begin
  write('Input x=');
  readln(x);
  if x>3 then
    F:=1.2*x*x*x-3*x-9
  else
    F:=12.1/(2*x*x+1);
  writeln('Output F=',F);
end.

Код


program L;
var
  x,F:real;
begin
  write('Input x=');
  readln(x);
  if x<=-3 then
    F:=-x*x-1.1*x+9
  else
    F:=(ln(x+3))/(x*x+9);
  writeln('Output F=',F);
end.

PS: я их не тестил, поэтому вероятность ошибки существует...

nikitao

Дата 27.11.2005, 21:55 (ссылка)

(нет голосов)

Загрузка ...

Кот-программист

Профиль
Группа: Завсегдатай
Сообщений: 1206
Регистрация: 30.8.2005
Где: Спб

Репутация: 3
Всего: 26

Честно говоря я думал,что надо вторую часть в одной программе оформить и я сделал так

Код


program Coocky;
uses crt;
var
temp,result,x:real;
j,i:integer;
begin
 clrscr;
 writeln('Vvedite x ');
 readln(x);
 writeln('Vvedite deistvie:');
 writeln('1-A');
 writeln('2-?');
 writeln('3-B');
 writeln('4-ѓ');
 writeln('5-„');
 writeln('6-…');
 writeln('7-†');
 writeln('8-?');
 writeln('9-K');
 writeln('10-‹');
 readln(i);
 case i of
 1:begin
  if (x>3) xor (x<0) then result:=4
  else
   result:=x*x;
  end;
 2:begin
  if x>=3 then result:=-1*(x*x-3*x+9)
  else
   result:=1/(x*x*x-6);
  end;
 3:begin
   if x>=7 then result:=-1*(x*x)
   else
   begin
   temp:=1;
   j:=1;
   while (j<>x) do begin
    temp:=temp*2;
    j:=j+1;
   end;
   result:=(x*x-9)/temp;
   end;
  end;
 4:begin
  if x>=3.5 then result:=4*(x*x)+2*x-19
  else
   result:=-1*((2*x)/(-4*x+1));
  end;
 5:begin
  if (x>=-2.4)and (x<=5.7) then result:=x*x
  else
  result:=4;
 end;
 6:begin
  if x<=13 then result:=-1*(x*x*x)+9
  else
   result:=x/(x+1);
  end;
 7:begin
  if x<=7 then result:=3*x-9
  else
   result:=1/(x*x-4);
  end;
 8:begin
  if (x>0) then result:=ln(x)+9
  else
   result:=-1*(x/(x*x-7));
  end;
 9:begin
  if x>3 then result:=1.2*x*x-3*x-9
   else
    result:=12.1/(2*x*x+1);
  end;
 10:begin
  if x<=-3 then result:=-1*(x*x)-1.1*x+9
  else
   result:= ln(x+3)/(x*x+9);
  end;
 end;
 writeln(result);
 readkey;
end.

Сам (по серьезному) уже год не работал в Паскале(все как-то C++) так что пусть кто-то проверит(надежнй будет) smile

Цитата(Zero @ 27.11.2005, 22:23)

Хе-хе, поэтому я и не люблю С++, на нём простейшие вещи, всё время затягиваются, а вот на паске... 5 сек

Это Coocky преувеличивет.На С++ это 3 секуды smile

Добавлено @ 21:56
Да,кодировку передернуло smile

Это сообщение отредактировал(а) nikitao - 27.11.2005, 22:00

--------------------

Жизнь - печальная штука.

sergejzr

Дата 28.11.2005, 02:35 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Coocky, с паскалем помочь немогу, а вот его компилер: http://www.lazarus.freepascal.org/ В хозяйстве по видимому пригодится!

PS:
Кстати, назови тему нормально!
Добавлено @ 02:37

Цитата(nikitao @ 27.11.2005, 20:55)

Да,кодировку передернуло

Прежде чем копировать текст включи раскладку клавы на "русский"

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Coocky

Дата 28.11.2005, 11:33 (ссылка)

(нет голосов)

Загрузка ...

GUI гуру

sergej.z
Спасибо smile

Цитата(sergej @ 28.11.2005, 02:35)

Кстати, назови тему нормально!

Писал в горячке, так что уж извини. Не часто прошу помощи smile

Переименую, как считаешь нужным smile

eskaflone
Zero
nikitao
Ребята, огромное спасибо, особенно за второе задание smile

Как и обещал, всем по плюсу.
Надеюсь на правильность вашего кода smile

Вообщем доверюя вам. Если что -подправите? smile

Добавлено @ 11:38

Цитата(Coocky @ 27.11.2005, 17:55)

Как по мне, так писать на С++ всего час

Цитата(Zero @ 27.11.2005, 21:23)

Хе-хе, поэтому я и не люблю С++, на нём простейшие вещи, всё время затягиваются, а вот на паске... 5 сек.

Цитата(nikitao @ 27.11.2005, 21:55)

Это Coocky преувеличивет.На С++ это 3 секуды

Да пошутил конечно smile

Еще раз всем спасибо smile

--------------------

Верю в смерть после жизни, в любовь после секса ,в крем после бритья smile

Zero

Дата 28.11.2005, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 3
Всего: 24

Цитата(sergej @ 28.11.2005, 03:35)

Прежде чем копировать текст включи раскладку клавы на "русский"

Ёшки матрёшки, а я то думал, почему у меня, то иногда нормально русский текст копируется, а иногда с евреъским путается... smile

Цитата(Coocky @ 28.11.2005, 12:33)

Если что -подправите?

Если что то скажешь где, мы же люди и ошибатся можем... А я свои проги не тестировал... Но думаю должно быть правильно. smile

Coocky

Дата 30.11.2005, 13:27 (ссылка)

(нет голосов)

Загрузка ...

GUI гуру

Проблема с первым заданием!
Вернули первую часть!
Ошибки!
res := exp (x * ln((x + 1)/(x - 1))) + 18 * x * y;
Там вроде в конце y^2 в условии
Остальные не показали...

Это сообщение отредактировал(а) Coocky - 30.11.2005, 13:44

--------------------

Верю в смерть после жизни, в любовь после секса ,в крем после бритья smile

Coocky

Дата 30.11.2005, 13:47 (ссылка)

(нет голосов)

Загрузка ...

GUI гуру

Ладно,отбой.Сам подправлю smile

Добавлено @ 13:55
И еще, по программам-а нельзя х*х записать как sqr(x)?

--------------------

Верю в смерть после жизни, в любовь после секса ,в крем после бритья smile

eskaflone

Дата 30.11.2005, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 5.11.2005

Репутация: 2
Всего: 3

Код


А  res := exp (x * ln((x + 1)/(x - 1))) + 18 * x * sqr(y);

недочет

Цитата

а нельзя х*х записать как sqr(x)?

можно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »