Циклы

@xzverx · Регистрация: 12.06.2013

Студворк — интернет-сервис помощи студентам

Помогите решить 4 задания...

1. Составить программу вывода всех трехзначных чисел, сумма цифр которых равна данному целому числу. Программа должна печатать именно числа, а не набор цифр.

2. Каждая бактерия делится на две в течение одной минуты. В начальный момент есть одна бактерия. Составьте программу, рассчитает количество бактерий на заданное Вами целое значение момента времени.

3. Дано целое число n. Определить n!

4. Протабулировать функцию у = х3 +2 х2-4х +7 на промежутке [-6:6] с шагом 0,1.

@Puporev · 10.11.2013, 13:43

Сообщение от xzverx

Помогите решить

Покажи что сделал, поможем, а писать 4 программы за тебя вряд ли..

@xzverx · 10.11.2013, 20:39 **[ТС]**

Сообщение от Puporev

Покажи что сделал, поможем, а писать 4 программы за тебя вряд ли..

Если бы я шарил...модуль закрыть нужно. Ладно,спасибо...

@DelphiXE3 · 10.11.2013, 23:28

2.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program bakteriya;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const k =2;
var t,bak: integer;
 
begin
Write('time=');
Read(t);
bak:=t*2;
Write(bak);
ReadLn;
//elementarno
end.

Добавлено через 2 минуты
Третье задание некорректное.

@xzverx · 11.11.2013, 12:22 **[ТС]**

+1 спасибо

@Valenth · 11.11.2013, 12:45

Сообщение от DelphiXE3

program bakteriya;
{$APPTYPE CONSOLE}
uses
* SysUtils;
const k =2;
var t,bak: integer;
begin
Write('time=');
Read(t);
bak:=t*2;
Write(bak);
ReadLn;
//elementarno
end.

Что за бред? Программа выведет удвоенное время и всё. Здесь кол-во бактерий в момент времени t равно не 2*t, а 2^t-1. Правильно:

С циклом

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program bakteriya;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    t, bak, i: integer;
 
begin
    Write('time=');
    Readln(t);
    bak := 1;
    for i=1 to t do
        bak := bak * 2;
    Writeln(bak);
    ReadLn;
end.

Без цикла

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program bakteriya;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    t: integer;
 
begin
    Write('time=');
    Readln(t);
    Writeln(power(2, t-1));
    ReadLn;
end.

@northener · 11.11.2013, 12:45

Сообщение от DelphiXE3

bak:=t*2;

Маловато будет.

@Valenth · 11.11.2013, 13:04

И третья задача нормально решается при таких условиях:

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
program bakteriya;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    n, f, i: integer;
 
begin
    Write('n=');
    Readln(n);
    f := 1;
    if (n<0) then
        writeln('Wrong input')
    else
        if (n=0) then
            writeln('Fact = 1')
        else
            begin
                for i=1 to n do
                    f := f * n;
                Writeln(f);
            end;
    ReadLn;
end.

Добавлено через 13 минут
Поправил код:

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
program factorial;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    n, f, i: integer;
 
begin
    Write('n=');
    Readln(n);
    f := 1;
    if (n<0) then
        writeln('Wrong input')
    else
        begin
            for i=1 to n do
                f := f * n;
            writeln('Fact = ', f);
        end;
    ReadLn;
end.

@xzverx · 11.11.2013, 13:37 **[ТС]**

спасибо большое Valenth
+1

@Valenth · 11.11.2013, 13:45

Чёт я разошёлся. Вот вам первая:

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
program chisla;
 
{$APPTYPE CONSOLE}
 
uses
    SysUtils;
 
var
    n, i, j, k, c: integer;
 
begin
    Write('n=');
    Readln(n);
    if (n in [1..27]) then
    begin
        for i:=1 to 9 do
            for j:=0 to 9 do
                for k:=0 to 9 do
                    if (i + j + k = n) then
                    begin
                        c := i*100+j*10+k;
                        writeln(c);
                    end;
    end
    else
        writeln('nothing to do here');
    ReadLn;
end.

А 4-ую делать не буду, не люблю табулировать функции, да и полно подобных программ тут.

@xzverx · 11.11.2013, 16:21 **[ТС]**

спасибо на этом,ты помог,а Puporev вообще сразу отказался.

@Valenth · 11.11.2013, 16:47

Не по теме:

xzverx, Puporev вообще прав. Халявщиков мало кто любит. Я тоже не люблю. Но мой мозг сейчас требовал простых задачек для отдыха.

@xzverx · 11.11.2013, 18:12 **[ТС]**

Сообщение от Valenth

Не по теме:

xzverx, Puporev вообще прав. Халявщиков мало кто любит. Я тоже не люблю. Но мой мозг сейчас требовал простых задачек для отдыха.

Понимаю...Мне значить повезло

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@xzverx 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 13

	Циклы 10.11.2013, 13:40. Показов 598. Ответов 12 Метки нет (Все метки) Помогите решить 4 задания... 1. Составить программу вывода всех трехзначных чисел, сумма цифр которых равна данному целому числу. Программа должна печатать именно числа, а не набор цифр. 2. Каждая бактерия делится на две в течение одной минуты. В начальный момент есть одна бактерия. Составьте программу, рассчитает количество бактерий на заданное Вами целое значение момента времени. 3. Дано целое число n. Определить n! 4. Протабулировать функцию у = х3 +2 х2-4х +7 на промежутке [-6:6] с шагом 0,1. 0

@xzverx 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 13
	11.11.2013, 12:22 [ТС]
	+1 спасибо 0

@xzverx 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 13
	11.11.2013, 13:37 [ТС]
	спасибо большое Valenth +1 0

@xzverx 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 13
	11.11.2013, 16:21 [ТС]
	спасибо на этом,ты помог,а Puporev вообще сразу отказался. 0

@Valenth
	11.11.2013, 16:47
	Не по теме: xzverx, Puporev вообще прав. Халявщиков мало кто любит. Я тоже не люблю. Но мой мозг сейчас требовал простых задачек для отдыха. 0