Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.02.2009, 19:43   #1
Damir20072008
Новичок
Джуниор
 
Регистрация: 10.02.2009
Сообщений: 2
По умолчанию ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ

1.Составить программу, в которой подсчитывается сумма элементов каждой строки двумерного массива, состоящего из 5 строк и 5 столбцов. Составить блок-схему решения.


2.Составить программу определения числа сочетаний c = n!/m!(n-m)!) по известным значениям целочисленных переменных n и m (при n < m).


3.Составить программу вычисления значения степени числа.
Damir20072008 вне форума
Старый 10.02.2009, 19:47   #2
-HunteR-
Форумчанин
 
Аватар для -HunteR-
 
Регистрация: 04.11.2007
Сообщений: 117
По умолчанию

3)read (x);
read (с); {степень}
writeln(exp(c*ln(x)));

и блок-схема к первому
Изображения
Тип файла: jpg Clipboard01.jpg (36.9 Кб, 140 просмотров)
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой.

Последний раз редактировалось -HunteR-; 10.02.2009 в 19:53.
-HunteR- вне форума
Старый 10.02.2009, 19:51   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от -HunteR- Посмотреть сообщение
3)read (x);
read (с); {степень}
writeln(exp(c*ln(x)));
а если x<0?
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 10.02.2009, 19:53   #4
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,551
По умолчанию

Готов решить 1-ю и 2-ю задачи. Цена: 300р. за каждую.
Arigato вне форума
Старый 10.02.2009, 19:55   #5
-HunteR-
Форумчанин
 
Аватар для -HunteR-
 
Регистрация: 04.11.2007
Сообщений: 117
По умолчанию

alex_fcsm
Добавить проверку! Если х=о, то выводим 0, т.к ноль в любой степени равен одному.
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой.
-HunteR- вне форума
Старый 10.02.2009, 19:56   #6
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от -HunteR- Посмотреть сообщение
alex_fcsm
Добавить проверку! Если х=о, то выводим 0, т.к ноль в любой степени равен одному.
-5 в квадрате по вашей формуле посчитает?
2)
Код:
var i,j:integer;
function  fact(x:integer):longint;
var i:integer;
    n:longint;
begin
n:=1;
for i:=1 to x do
  n:=n*i;
fact:=n;
end;


begin
Writeln('Input n,m');
readln(i,j);
Writeln('Result:',fact(i)/(fact(i-j)*fact(j)):8:0);
end.
1)
Код:
const n=5;
var i,j,temp:integer;
    a:array[1..n,1..n]of integer;

begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j],' ');
   end;
   writeln;
 end;
 for i:=1 to n do
  begin
   temp:=0;
    for j:=1 to n do
     temp:=temp+a[i,j];
   writeln(temp);
  end;
 
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.

Последний раз редактировалось alex_fcsm; 10.02.2009 в 20:00.
alex_fcsm вне форума
Старый 10.02.2009, 19:58   #7
Damir20072008
Новичок
Джуниор
 
Регистрация: 10.02.2009
Сообщений: 2
По умолчанию

ПОМОГИТЕ РЕШИТЬ 1 И 2
Damir20072008 вне форума
Старый 10.02.2009, 20:00   #8
-HunteR-
Форумчанин
 
Аватар для -HunteR-
 
Регистрация: 04.11.2007
Сообщений: 117
По умолчанию

alex_fcsm
Если её модифицировать. то да.
я паскаль только начал изучать, но вариант есть:

if x<0 then
begin
writeln('-',(exp(c*ln(abs(x)))0;
end;
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой.

Последний раз редактировалось -HunteR-; 10.02.2009 в 20:06.
-HunteR- вне форума
Старый 10.02.2009, 20:00   #9
-HunteR-
Форумчанин
 
Аватар для -HunteR-
 
Регистрация: 04.11.2007
Сообщений: 117
По умолчанию

Damir20072008

первое по блоксхеме напиши код, это же не тяжело

P.s. alex_fcsm. можно на "ты"

ой, извиняюсь за второй пост, думал, что он автоматически добавится
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой.
-HunteR- вне форума
Старый 10.02.2009, 20:03   #10
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от -HunteR- Посмотреть сообщение
alex_fcsm
Если её модифицировать. то да.
Вот я про это и пытаюсь сказать. Только почему-то Вам а не топик-стартеру

P.S. Смотри(раз на ты ) кнопочку Правка справа
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачи НОГАННО Помощь студентам 9 01.02.2009 23:18
Помогите решить задачи на C++ Many man Помощь студентам 7 02.12.2008 20:41
Помогите решить задачи DenSuper007x Помощь студентам 2 12.04.2008 23:00
помогите решить задачи rusl12 Помощь студентам 2 21.06.2007 15:25