|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
22.10.2009, 19:35 | #1 (permalink) |
Новичок
Регистрация: 22.10.2009
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите сделать лабу
r (r > 20). 2.1 Вводится X. Получить значение Y, если Y=(X*X-X) * (4*X*X-3*X) * (9*X*X-5*X) *…* (400*X*X-39*X). 2.2 Получить значение Y=(X+1)*(X+4)*(X+7)*(X+10)* ... *(X+34) для X=X1, X2, X3, ... ,X15. |
22.10.2009, 19:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы имеют некоторые сходства с вашей, советую пролистать Помогите сделать схему Помогите сделать флешку |
22.10.2009, 22:15 | #2 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
r:REAL; BEGIN Write('r= '); ReadLn(r); WriteLn('S= ',Pi*(r*r-400)); ReadLn; END. Цитата:
X,Y:REAL; i:INTEGER; Write('X= '); ReadLn(X); Y:=1; FOR i:=1 TO 20 DO Y:=Y*(SQR(X*i)-X*(2*i-1)); WriteLn('Y= ',Y); ReadLn; END. Цитата:
X,Y:ARRAY[1..15] of REAL; i,j:INTEGER; BEGIN FOR i:=1 TO 15 DO BEGIN Write('X[',i:2,']= '); ReadLn(X[i]); Y[i]:=1; END; WriteLn; FOR i:=1 TO 15 DO BEGIN FOR j:=1 TO 12 DO Y[i]:=Y[i]*(X[i]+(i-1)*3+1); Writeln('Y[',i:2,']= ',Y[i]); END; ReadLn; END. Честно скажу - не проверял. Но вроде всё так. Если что - напишите, поправим. Последний раз редактировалось Vladimir_S; 26.10.2009 в 12:26 Причина: Во втором задании вместо "-" стоял "+". Исправлено. |
|||
05.11.2009, 21:33 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.11.2009, 14:47 | #6 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Не удержался, сделал несколько заданий
1 задание uses crt; var x,y:real; begin clrscr; write('введите х');read(x); if x<=-5 then y:=(x-2) * (x+4); if (x>-5)and(x<=-2) then y:=(-sqr(x)); if x>-2 then y:=exp(x); write(' y = ',y:5:2); end. 3 задание uses crt; var x1,x2,y:real;r1,r2:byte; begin clrscr; write('введите x1');read(x1); write('введите x2');read(x2); write('введите r1');read(r1); write('введите r2');read(r2); y:=ln(abs(cos(x1/r2)))*sqrt((x2-x1)/r1); write(' y = ',y:5:2); end. Последний раз редактировалось DDS; 06.11.2009 в 14:54 Причина: добавлена ещё задача |
16.11.2009, 21:00 | #7 (permalink) |
Новичок
Регистрация: 16.11.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
плиз помогите написать лабу на языке паскаль!
Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек. |
16.11.2009, 21:10 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Теперь - задачка. Код:
CONST Nominal:ARRAY[1..6] of BYTE= (1,3,5,10,20,50); VAR N:WORD; i:INTEGER; BEGIN Write('N= '); ReadLn(N); FOR i:=6 DOWNTO 1 DO BEGIN WriteLn(Nominal[i]:2, ' kop - ', (N div Nominal[i]):4); N:=N mod Nominal[i]; END; ReadLn; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|