|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
09.03.2011, 20:14 | #1 (permalink) | ||
Member
Регистрация: 11.11.2010
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите соединить две задачи на Паскале
Вот как звучит задание: Вот код первой программы: Цитата:
Цитата:
|
||
09.03.2011, 20:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете узнать больше информации о этой проблеме, почитав похожие темы Помогите решить четыре задачи в Паскале Задачи на Паскале Помогите решить две задачи в турбо паскале Задачи на паскале. Помогите решить задачи на Паскале Не знаю как решить задачи на паскале, помогите пожалуйста! |
09.03.2011, 21:37 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Нет, первый код - категорически никуда не годится! Кто Вам сказал, что переменная х может принимать только целочисленные значения? Потому что так проще цикл программировать? Не пойдет. В задании дана вещественная функция вещественного аргумента, и нечего тут упрощать. Решить задачку можно, например, так:
Код:
VAR Xmin,Xmax,Dx,x:Real; i,N:Integer; Function Y1(x1:Real):Real; begin if x1<2 then Y1:=(x1*x1*3+x1*2+5)/2/Exp(-x1) else Y1:=x1+Cos(x1); end; Function Y2(x2:Real):Real; begin Y2:=Y1(x2)*2+x2*x2; end; Function Z(x3:Real):Real; begin Z:=Y1(x3)*2+SQR(x3); end; BEGIN Write('Xmin = '); ReadLn(Xmin); Write('Xmax (<6) = '); ReadLn(Xmax); Write('Dx = '); ReadLn(Dx); N:=ROUND((Xmax-Xmin)/Dx); For i:=0 to N do begin x:=Xmin+Dx*i; WriteLn(x:5:2, Z(x):12:3); end; ReadLn; END. Код:
program z22; uses crt; var i,n:integer; A:array[1..100] of real; b:array[1..100] of real ; begin clrscr; Repeat Write('Vvedite dlinu massiva '); readln(n); if (n<=0) or (n>100) then Writeln ('Error!'); Until (n>0) and (n<101); Writeln('Vvodite:'); for i:=1 to n do begin Write('a[',i:2,']= '); Readln(a[i]); end; Writeln('Input:'); for i:=1 to n do Write(a[i]:8:3); Writeln; Writeln('Output:'); for i:=1 to n do b[i]:=abs(a[i]); for i:=1 to n do Write(b[i]:8:3); Writeln; readln; end. |
09.03.2011, 22:14 | #3 (permalink) |
Member
Регистрация: 11.11.2010
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо Вам большое С этой контрольной помогли, ещё и денег хотели содрать) А на счёт объединения, препод зачемто требует) буду пробовать =)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|