Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2015, 21:29   #1
Миъаил
Новичок
Джуниор
 
Регистрация: 01.10.2015
Сообщений: 3
Восклицание ребята, нужна помощь в паскале

в общем суть такова, сложно понимаю паскаль, нигде не преподавали мне его, а самому за 2 дня не осилить полностью, хотя бы даже малую часть, помогите пожалуйста 1) составить программу для вычисления y и z Снимок.JPG, а блок схему я надеюсь смогу, 2) составить блок схему и программу для вычисления таблицы значений функции U(x,y), при изменении значений аргументов х и у в заданных пределах и с заданным шагомСнимок1.JPG

Последний раз редактировалось Миъаил; 01.10.2015 в 21:39. Причина: уточнение не помешает как мне кажется
Миъаил вне форума Ответить с цитированием
Старый 02.10.2015, 09:06   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

1) Программу ввода коэффициентов составить сможешь?
2) А какой паскаль, то нужен?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 02.10.2015, 13:50   #3
Миъаил
Новичок
Джуниор
 
Регистрация: 01.10.2015
Сообщений: 3
По умолчанию

прогу ввода коэффициентов нет((
а паскаль который турбо
Миъаил вне форума Ответить с цитированием
Старый 02.10.2015, 14:13   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Понятно...
Первая может выглядеть так:
Код:
var a,b,x:real;
begin
  a:=2.8; b:=3.29;
  writeln('Y=',2*exp(4*x)+arctan(x/a),' Z=',cos(x*x*x)+sin(x)*sin(x)*sin(x));
  readln;
end.
Вторая так:
Код:
var x,y:real;
begin
  x:=-0.5; y:=0;
  while (x<=3.6) do begin write(x:10:2,': ');
    while (y<=2.1) do begin
     if (x+y)<0 then write((x*x*y):5:2) else
       if (x+y)>=4 then write(exp(-y*ln(x)):5:2) else
         write(sin(x*y):5:2);
     y:=y+1;
    end;
    writeln;
    x:=x+2;
  end;
  readln;
end.
P.S. Писал от руки.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 02.10.2015, 18:42   #5
Миъаил
Новичок
Джуниор
 
Регистрация: 01.10.2015
Сообщений: 3
По умолчанию

спасибо дружище, ты красавец
Миъаил вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ребята, нужна помощь по работе в word. Владислав Прохоров Microsoft Office Word 4 10.11.2014 09:39
Ребята нужна помощь шифрование deff91 Помощь студентам 2 17.12.2013 08:15
Ребята нужна помощь Tison Microsoft Office Excel 1 21.12.2009 22:03