Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 20, средняя оценка - 4.95
Takezo Kensai
2 / 2 / 0
Регистрация: 15.05.2012
Сообщений: 72
#1

Определить произведение цифр натурального числа N. - Delphi

18.05.2012, 04:39. Просмотров 2690. Ответов 4
Метки нет (Все метки)

1) Вычисление суммы ряда
По заданной формуле члена последовательности с номером k составить две программы:

- программу вычисления суммы первых n членов последовательности (k=1,2,3..,n);

- программу вычисления суммы всех членов последовательности, не меньших заданного числа e.
Член последовательности : (K+2)/(k^2+4)

2) Определить произведение цифр натурального числа N.

3) Эти 3 пункта всё в одной программе.
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100,200]. Найти сумму четных элементов, значения которых больше заданного числа.

2. Найти количество тех элементов, значения которых отрицательны и по модулю не превосходят заданного числа А.

3. Найти номер первой пары соседних элементов с разными знаками.

4) Дан двумерный массив размером n*m, заполненный случайными числами. Изменить массив путем деления всех его элементов на максимальный по модулю элемент.

Заранее благодарен!

Добавлено через 10 часов 21 минуту
Вверх!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2012, 04:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить произведение цифр натурального числа N. (Delphi):

Определить, является ли чётной сумма цифр заданного трёхзначного натурального числа - Delphi
Составить программу, которая определяет, является ли чётной сумма цифр заданного трёхзначного натурального числа.Delphi

Определить, верно ли, что произведение цифр числа больше заданного числа А (консольное приложение) - Delphi
Дано целое четырехзначное число. Верно ли, что произведение его цифр больше заданного числа А?

Программа, печатающая для любого натурального числа 1-1000 количество цифр в записи этого числа - Delphi
Помогите, пожалуйста, составить код Delphi (вывод значений в Memo при нажатии кнопки) для следующих задач: Программа, которая для...

Найти сумму цифр заданного натурального числа - Delphi
Найти сумму цифр заданного натурального числа Заранее благодарен, программу, пожалуйста, в ДЕЛФИ напишите, а то уже завтра зачет по...

Найти сумму цифр заданного натурального числа - Delphi
найти сумму цифр заданного натурального числа. Помогите пожалуйста

Найти количество цифр натурального числа, больших А - Delphi
Здравствуйте, помогите пожалуйста. С Delphi пока не очень, а преподаватель требовательный, почти не объяснял, и сразу же дал задание...

4
Nikitko_Cent
143 / 113 / 12
Регистрация: 27.10.2011
Сообщений: 684
Завершенные тесты: 3
18.05.2012, 06:51 #2
2)
Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var i,res:integer;
    numb:string;
 
begin
  Writeln('Vvedite chislo:');
  Readln(numb);
 
  while length(numb) = 0 do
    begin
      writeln('Vi ne vveli chislo!');
      Writeln('Vvedite chislo:');
      Readln(numb);
    end;
 
  res:=1;
  for i:=1 to length(numb) do
    res:=res*strtoint(numb[i]);
 
  writeln;
  writeln('Proizvedenie:', res);
  readln;
end.
Добавлено через 37 минут
3)
Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var mass:array of integer;
    i,n,numb,A,one,two,three:integer;
 
begin
  Writeln('Vvedite razmer massiva:');
  Readln(n);
  Setlength(mass,n);
 
//=======ЗАПОЛНЕНИЕ МАССИВА И ВЫВОД НА ЭКРАН=================
  randomize;
  Writeln('Massiv:');
 
  for i:=0 to n-1 do
    begin
      mass[i]:=random(300)-99;
      write(mass[i], ' ');
    end;
//======================ОСНОВНОЙ КОД=========================
  i:=0;
  one:=0;
  two:=0;
  three:=0;
 
  Writeln;
  Writeln;
  Writeln('Vvedite chislo dlya pervogo zadaniya:');
  Readln(numb);
 
  Writeln('Vvedite chislo dlya vtorogo zadaniya:');
  Readln(A);
 
  while i<=n-1 do
    begin
      if (mass[i]>numb) and (i mod 2=0) then
        one:=one+mass[i];
 
      if (mass[i]<0) and (-mass[i]<=A) then
        two:=two+1;
 
      if (((mass[i]<0) and (mass[i+1]>0)) or ((mass[i]>0) and (mass[i+1]<0))) and (three=0) then
        three:=i+1;
      i:=i+1;
    end;
 
  writeln;
 
  writeln('1. ', one);
  writeln('2. ', two);
  writeln('3. ', three);
 
  Readln;
end.
Для первого подпункта задания учесть то , что в массиве элементы нумеруются с нуля!.
1
Nikitko_Cent
143 / 113 / 12
Регистрация: 27.10.2011
Сообщений: 684
Завершенные тесты: 3
18.05.2012, 07:39 #3
4) Во вложении
При выводе конечного массива на экран, значения округлял до сотых, т.к. бывает что они сильно длинные выходят
1
Вложения
Тип файла: rar 4.rar (3.5 Кб, 40 просмотров)
Takezo Kensai
2 / 2 / 0
Регистрация: 15.05.2012
Сообщений: 72
18.05.2012, 16:17  [ТС] #4
Nikitko_Cent, Спасибо большое А что на счёт 1-го задания ?
0
Takezo Kensai
2 / 2 / 0
Регистрация: 15.05.2012
Сообщений: 72
30.05.2012, 16:39  [ТС] #5
Помогите составить 1-е задание.

Добавлено через 21 час 53 минуты
Тут же задания составлены как в паскале...проблемы.
0
30.05.2012, 16:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2012, 16:39
Привет! Вот еще темы с ответами:

Вычисить суммы первых и последних двух цифр натурального числа - Delphi
Чет не робит помогите( unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...

Delphi. Подсчитать количество цифр в десятичной записи натурального числа N. - Delphi
Подсчитать количество цифр в десятичной записи целого неотрицательного числа N. Зарание спасибо)))

Подсчитать количество различных цифр в десятичной записи натурального числа - Delphi
2. Подсчитать количество различных цифр в десятичной записи натурального числа .

Для любого натурального числа напечатать количество цифр в его записи - Delphi
вот задача,составить программу которая для любого натурального числа печатает количество цифр в записи это числа,не могу найти ошибку...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru