Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 22.10.2009, 19:35   #1 (permalink)
evgenn
Новичок
 
Регистрация: 22.10.2009
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите сделать лабу

1.Найти площадь кольца, внутренний радиус которого равен 20, а внешний - введенному числу
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.
evgenn вне форума   Ответить с цитированием

Старый 22.10.2009, 19:35
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Эти темы имеют некоторые сходства с вашей, советую пролистать

Помогите сделать схему
Помогите сделать флешку

Старый 22.10.2009, 22:15   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от evgenn Посмотреть сообщение
1.Найти площадь кольца, внутренний радиус которого равен 20, а внешний - введенному числу
r (r > 20).
VAR
r:REAL;
BEGIN
Write('r= '); ReadLn(r);
WriteLn('S= ',Pi*(r*r-400));
ReadLn;
END.

Цитата:
2.1 Вводится X.
Получить значение Y, если Y=(X*X-X) * (4*X*X-3*X) * (9*X*X-5*X) *…* (400*X*X-39*X).
VAR
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.

Цитата:
2.2 Получить значение Y=(X+1)*(X+4)*(X+7)*(X+10)* ... *(X+34) для X=X1, X2, X3, ... ,X15.
VAR
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 Причина: Во втором задании вместо "-" стоял "+". Исправлено.
Vladimir_S вне форума   Ответить с цитированием
Старый 02.11.2009, 17:51   #3 (permalink)
evgenn
Новичок
 
Регистрация: 22.10.2009
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

вот ещё задания а за эти спасибо , уже здал
evgenn вне форума   Ответить с цитированием
Старый 05.11.2009, 21:09   #4 (permalink)
evgenn
Новичок
 
Регистрация: 22.10.2009
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

во получил задание
Миниатюры
p1010808.jpg   p1010807.jpg   p1010795.jpg  

Последний раз редактировалось evgenn; 05.11.2009 в 21:21
evgenn вне форума   Ответить с цитированием
Старый 05.11.2009, 21:33   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от evgenn Посмотреть сообщение
во получил задание
А самостоятельно не хотите попробовать? Тем более, задания-то детсадовские. Учиться, между прочим, надо Вам, а не нам. А просто тупо перебрасывать задания на форум - не дело. Попытайтесь - вот ей-Богу, интересно будет!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 06.11.2009, 14:47   #6 (permalink)
DDS
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 Причина: добавлена ещё задача
DDS вне форума   Ответить с цитированием
Старый 16.11.2009, 21:00   #7 (permalink)
Sem9273
Новичок
 
Регистрация: 16.11.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

плиз помогите написать лабу на языке паскаль!

Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.
Sem9273 вне форума   Ответить с цитированием
Старый 16.11.2009, 21:10   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Sem9273 Посмотреть сообщение
Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.
Прежде всего - модераторское замечание: НЕ ДУБЛИРУЙТЕ СООБЩЕНИЯ! Дубликаты удалены. На первый раз прощается, ну а дальше...

Теперь - задачка.
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:15.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.