|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.01.2015, 00:04 | #1 (permalink) |
Новичок
Регистрация: 20.01.2015
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромная просьба о помощи в решении задач
|
21.01.2015, 00:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По содержанию ваш топик аналогичен данным темам Прошу помощи в решении задачи Прошу помощи в решении задач |
21.01.2015, 10:24 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var x,c:Real; Begin Write('x = '); Readln(x); Write('c = '); Readln(c); if x<=0.2 then writeln('f = ',(Abs(x)+c*x-4):0:3) else writeln('f = ',(Sqr(Sin(x)-1)):0:3); Readln End. Код:
Var K,M,N:Word; A,B,P,P1:Real; Begin Write('Количество коров: '); Readln(K); Write('Количество лошадей: '); Readln(M); Write('Норма кормления коровы: '); Readln(A); Write('Норма кормления лошади: '); Readln(B); Write('Количество дней: '); Readln(N); Write('Наличный запас сена: '); Readln(P); P1:=(1.0*A*K+1.0*B*M)*N; If (P-P1)<0 then writeln('Не хватает ',Trunc(P1-P)+1,' кг сена') else writeln('Сена хватит'); Readln End. Код:
Var S,x:Real; i:Byte; Begin Write('x = '); Readln(x); S:=0; For i:=3 to 20 do S:=S+Abs(x+1.0*i); Writeln('S = ',S:0:3); Readln End. |
|
21.01.2015, 10:31 | #3 (permalink) |
Новичок
Регистрация: 20.01.2015
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
СПАСИБО!
Прям гигантское Вам СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Очень-очень благодарна!!!!!!!!!!!!!!!! А если Вас не затруднит, Вы могли бы ещё написать для какого именно это Паскаль??? |
21.01.2015, 11:09 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
21.01.2015, 11:54 | #6 (permalink) |
Новичок
Регистрация: 20.01.2015
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ещё раз ОГРОМНОЕ СПАСИБО!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|