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


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

1 Даны действительные числа S,T.
Получить H(S,T)+H(S-T,S*T)-H(2.5, S/T),
где H(A,B)= A / (1+B²) + B/ (1+A²) -(A-B)³ описать в программе как функцию.


2. Описать процедуру, которая в том из векторов А, В или С, где больше всего отрицательных элементов (считать, что такой вектор один), все его положительные элементы заменяет на их кубы — если это вектор А или вектор В, и на обратные величины — если это вектор С.
Ксюха вне форума   Ответить с цитированием

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

В интернете часто создаются схожие темы

Помогите решить четыре задачи в Паскале
Помогите решить задачи на C++
Помогите решить две задачи в турбо паскале
Помогите решить две задачи в С++

Старый 28.05.2009, 15:04   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,829
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от Ксюха Посмотреть сообщение
1 Даны действительные числа S,T.
Получить H(S,T)+H(S-T,S*T)-H(2.5, S/T),
где H(A,B)= A / (1+B²) + B/ (1+A²) -(A-B)³ описать в программе как функцию.


2. Описать процедуру, которая в том из векторов А, В или С, где больше всего отрицательных элементов (считать, что такой вектор один), все его положительные элементы заменяет на их кубы — если это вектор А или вектор В, и на обратные величины — если это вектор С.
Пожалуйста:

1.
VAR
S, T:REAL;

FUNCTION H(A,B:REAL):REAL;
BEGIN
H:=A/(1+SQR(B))+B/(1+SQR(A))-(A-B)*SQR(A-B);
END;

BEGIN
Write('S = '); ReadLn(S);
Write('T = '); ReadLn(T);
Writeln('Result = ', H(S,T)+H(S-T,S*T)-H(2.5, S/T));
ReadLn;
END.

2.
CONST
N=10;

TYPE
AR=ARRAY [1..N] of REAL;

PROCEDURE CHANGE_VECTOR(A_in, B_in, C_in:AR; VAR A_out:AR; VAR B_out:AR; VAR C_out:AR);
VAR
p_A, p_B, p_C, i:INTEGER;

BEGIN
p_A:=0;
p_B:=0;
p_C:=0;
FOR i:=1 TO N DO
BEGIN
IF A_in[i]<0 THEN INC(p_A);
IF B_in[i]<0 THEN INC(p_B);
IF C_in[i]<0 THEN INC(p_C);
END;

IF (p_A>p_B) AND (p_A>p_C) THEN
BEGIN
B_out:=B_in;
C_out:=C_in;
FOR i:=1 TO N DO
IF A_in[i]>0 THEN A_out[i]:=A_in[i]*A_in[i]*A_in[i]
ELSE
A_out[i]:=A_in[i];
END;

IF (p_B>p_A) AND (p_B>p_C) THEN
BEGIN
A_out:=A_in;
C_out:=C_in;
FOR i:=1 TO N DO
IF B_in[i]>0 THEN B_out[i]:=B_in[i]*B_in[i]*B_in[i]
ELSE
B_out[i]:=B_in[i];
END;

IF (p_C>p_A) AND (p_C>p_B) THEN
BEGIN
A_out:=A_in;
B_out:=B_in;
FOR i:=1 TO N DO
IF C_in[i]>0 THEN C_out[i]:=1/C_in[i]
ELSE
C_out[i]:=C_in[i];
END;

END;

Последний раз редактировалось Vladimir_S; 28.05.2009 в 16:50 Причина: Второпях пропустил пару END-ов. Поправил.
Vladimir_S вне форума   Ответить с цитированием
Старый 28.05.2009, 18:38   #3 (permalink)
Ксюха
Новичок
 
Регистрация: 28.05.2009
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Talking

Большое спасибо.
Ксюха вне форума   Ответить с цитированием
Старый 20.10.2009, 19:06   #4 (permalink)
Boginy
Новичок
 
Аватар для Boginy
 
Регистрация: 20.10.2009
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

А можно и мне помощи в этом же направлении?)))Пожалуйста)))Нужно решить парочку задачек,а я ни чего не понимаю....

1) Даны целое число n и целочисленный одномерный массив a1,a2,..., an. Поучить двухмерный массив, элементы которого вычисляются по формуле bij = ai + 3aj , где i = 1, 2,...., n
2) В массиве целых чисел А1,..., An обнулить все отрицательные числа
3)Задан массив целых чисел размера Р. Напечатать числа, которые входят в массив более одного раза.
Boginy вне форума   Ответить с цитированием
Старый 20.10.2009, 19:15   #5 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,933
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Цитата:
Сообщение от Boginy Посмотреть сообщение
2) В массиве целых чисел А1,..., An обнулить все отрицательные числа
Код:
uses crt;
var a: array[1..100] of integer;
     i, n: integer;
begin
write('Введите количество элементов массива');
read(n);
writeln('Заполните массив целыми числами');
for i:=1 to n do
readln(a[i]);

for i:=1 to n do
if a[i]<0 then a[i]:=0

writeln('получившийся массив после обработки:');
for i:=1 to n do
writeln(a[i]);

readln
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 20.10.2009, 19:24   #6 (permalink)
Boginy
Новичок
 
Аватар для Boginy
 
Регистрация: 20.10.2009
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Ограменное спасибо)))))

у меня тут еще задачки есть)))поможешь?)))

В зрительном зале размера N * M половина мест продана. Посетитель просит продать k подряд расположенных мест. Выдать всевозможные комбинации выполнения этого выполнения этого запроса, для того, чтобы посетитель смог сделать свой окончательный выбор. Занятые места вводите датчиком случайных чисел.
Boginy вне форума   Ответить с цитированием
Старый 20.10.2009, 19:31   #7 (permalink)
Boginy
Новичок
 
Аватар для Boginy
 
Регистрация: 20.10.2009
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

1) Даны два массива A и В, состоящие из N целых элементов. Соединить их в один массив С=(А1,В1,А2,В2,...., An, Bn)
2) Заданы два одномерных целых массива: массив А размера М и массив В размера N. Объединить их в один массив, включив второй массив между К - ым и К + 1 - м элементами первого (К - задано)
Boginy вне форума   Ответить с цитированием
Старый 20.10.2009, 19:46   #8 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,933
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Цитата:
Сообщение от Boginy Посмотреть сообщение
1) Даны целое число n и целочисленный одномерный массив a1,a2,..., an. Поучить двухмерный массив, элементы которого вычисляются по формуле bij = ai + 3aj , где i = 1, 2,...., n
Допущение: пусть максимальное количество элементов массива а будет равно 100 (для проверки достаточно и 10).
Код:
uses crt;
var a: array[1..100] of integer;
     b: array[1..100,1..100] of integer;
     i, j,n: integer;
begin
write('введите размерность массива а');
readln(n);
writeln('Заполните элементы массива а значениями');
for i:=1 to n do
readln (a[i]);

for i:=1 to n do begin
for j:=1 to n do begin
b[i,j]:=a[i]+3*a[j];
write(b[i,j],' '); end;
writeln; end;

readln
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 20.10.2009, 20:26   #9 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,933
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Цитата:
Сообщение от Boginy Посмотреть сообщение
1) Даны два массива A и В, состоящие из N целых элементов. Соединить их в один массив С=(А1,В1,А2,В2,...., An, Bn)
Код:
uses crt;
var a: array[1..100] of integer;
     b: array[1..100] of integer;
     c: array[1..200] of integer;
     i, n: integer;
begin
write('введите размерность массива');
readln(n);
writeln('Заполните элементы массива а значениями');
for i:=1 to n do
readln (a[i]);
writeln('Заполните элементы массива b значениями');
for i:=1 to n do
readln (b[i]);

for i:=1 to n*2 do 
if i mod 2=1 then c[i]:=a[i div 2+1] else c[i]:=b[i div 2]

for i:=1 to n*2 do
wtite (c[i],' ');

readln
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 20.10.2009, 20:37   #10 (permalink)
Boginy
Новичок
 
Аватар для Boginy
 
Регистрация: 20.10.2009
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

вот был бы ты рядом прям незнаю чтоб с тобой сделала))))))Спасибо
Boginy вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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