35 / 35 / 3
Регистрация: 26.02.2013
Сообщений: 176
1

Произведение по формуле

07.11.2013, 11:25. Показов 455. Ответов 2
Метки нет (Все метки)

Произведение двухзначных чисел x1x2 и y1y2 вычисляется по формуле
(x1*y1*10 + x1*y2 + x2*y1) * 10 + x2 * y2.Написать программу для перемножения четырехзначных чисел с помощью рекурсии. Найдите ошибку.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
uses crt;
var a,b:longint;
 
function half1(n:longint):longint;
    var
       n1:string;
       res:integer;
       c:integer;
    begin
       str(n,n1);
       delete(n1,((length(n1) div 2)+1),(length(n1)div 2));
       val(n1,res,c);
       half1:=res;
     end;
 
     function half2(n:longint):longint;
    var
       n1:string;
       res:integer;
       c:integer;
    begin
       str(n,n1);
       delete(n1,1,(length(n1)div 2));
       val(n1,res,c);
       half2:=res;
     end;
 
function evkl(a,b:longint):longint;
var
 
      res1,res2,t1,t2,t3,t4:longint;
begin
 
      if half1(a)>9 then
   begin
   evkl:=(evkl(half1(a),half1(b))*10+evkl(half1(a),half2(b))+evkl(half2(a),half1(b)))*10 + evkl(half2(a),half2(b));
   res2:=(evkl(half1(a),half1(b))*10+evkl(half1(a),half2(b))+evkl(half2(a),half1(b)))*10 + evkl(half2(a),half2(b));
    writeln(res2);
   end;
 
    if half1(a) < 10 then
    begin
     evkl:=(half1(a)*half1(b)*10 + half1(a)*half2(b) + half2(a)*half1(b))*10 + half2(a)*half2(b);
     res1:=(half1(a)*half1(b)*10 + half1(a)*half2(b) + half2(a)*half1(b))*10 + half2(a)*half2(b);
     writeln(res1);
    end;
 
     end;
 
     begin
     clrscr;
     write('enter a:');
     readln(a);
     write('enter b:');
     readln(b);
      evkl(a,b);
     readln;
     end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2013, 11:25
Ответы с готовыми решениями:

Вычислить произведение по формуле
Формула: \prod_{i=1}^{m}(2+cos{{x}_{i}}^{2}) using System; using System.Collections.Generic;...

Вычислить произведение по формуле
Помогите пожалуйста вычислить производную p=\prod_{i, j=1}^{20}\frac{1}{i+j^2}

Вычислить произведение по формуле
29. так же без массивов

Вычислить произведение по формуле
C++ Cоставить программу для вычисления произведения \prod_{k=1}^{15}\left(1+e^{sin\, k}...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32230 / 20869 / 8085
Регистрация: 22.10.2011
Сообщений: 36,105
Записей в блоге: 7
07.11.2013, 12:39 2


Зачем здесь 60 строк кода, да еще и работа со строками?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function mult(a, b : longint) : longint;
var n, ten : integer;
begin
  n := trunc(ln(a) / ln(10)) + 1;
  ten := trunc(exp((n div 2) * ln(10)));
  if n = 1 then mult := a * b
  else
    mult := ten * (ten * mult(a div ten, b div ten) +
                         mult(a div ten, b mod ten) +
                         mult(a mod ten, b div ten)) + mult(a mod ten, b mod ten);
end;
 
 
begin
  writeln(mult(2907, 1996)); { выдаст 5802372 }
  writeln(mult(11, 12)); { выдаст 132 }
end.
1
35 / 35 / 3
Регистрация: 26.02.2013
Сообщений: 176
07.11.2013, 12:44  [ТС] 3
Спасибо огромное. Я не еще не программист, я только учусь.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2013, 12:44
Помогаю со студенческими работами здесь

Вычислить произведение по формуле
2.Вычислить произведение P P=\prod_{i=1}^{5}\frac{\sqrt{i}}{\sqrt{i+1}}

Найти произведение ряда по формуле
Помогите пожалуйста не как не пойму как перенести эту формулу:P=\prod_{k=1}^{k}\frac{sin(kx)}{2k-1}...

Вычислить произведение по заданной формуле
Дано натурально число n. Вычислить. P=(1-1/2^2) (1-1/3^2)...(1-1/n^2) где n&gt;2.

Вычислить произведение элементов массива по формуле
g=c^3*П*(bj+1)^2 помогите это массив вычеслитб срочно пожалуйста. Добавлено через 2 минуты на...

Вычислить произведение ряда по заданной формуле
Нужно вычислить и вывести на экран, C++

Найти произведение ряда по заданной формуле
Уравнение Visual Studio C++ Номер 15.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru