0 / 0 / 1
Регистрация: 18.02.2013
Сообщений: 27

Напишите программу нахождения суммы всех чисел, имеющих нечетный порядковый номер и произведения всех чисел, имеющих четный порядковый номер.

18.02.2013, 20:48. Показов 1678. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Сформируйте массив из N чисел; значения элементов введите из внешнего файла. Напишите
программу нахождения суммы всех чисел, имеющих нечетный порядковый номер и
произведения всех чисел, имеющих четный порядковый номер.
Вообще не шарю как это все сделать...кто чем может - помогите!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.02.2013, 20:48
Ответы с готовыми решениями:

Составить блок-схему алгоритма определения суммы чисел, имеющих четный порядковый номер в последовательности
№2 Составить блок-схему алгоритма определения суммы чисел имеющих четный порядковый номер в последовательности и одновременно являющихся...

Дано 60 чисел.найти разность между числами имеющими четный и нечетный порядковый номер
дано 60 чисел.найти разность между числами имеющими четный и нечетный порядковый номер

Найти наименьшее из всех чисел, больших 10, и его порядковый номер
Задача 2. Дана последовательность из M чисел. Найти наименьшее из всех чисел, больших 10, и его порядковый номер. и сам код ...

7
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
18.02.2013, 20:51
Цитата Сообщение от Ziteck Посмотреть сообщение
из внешнего файла
Файл какой? Текстовый? Типизированный?
0
0 / 0 / 1
Регистрация: 18.02.2013
Сообщений: 27
18.02.2013, 21:17  [ТС]
Цитата Сообщение от Kodzaev Посмотреть сообщение
Файл какой? Текстовый? Типизированный?
Текстовый

Например
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls; StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  MyTextFile: TextFile; //файловая переменная
  n:integer;            //кол-о записей в файле
  mas_number: array[1..50] of Integer; //массив чисел
implementation
 
{$R *.dfm}
//процедура создания формы
procedure TForm1.FormCreate(sender: TObject);
var
i:integer;  //счетчик для цикла
k:integer;  //переменная для чтения числа из стройки файла
s:string;   //строка символов
begin
AssignFile(MyTextFile, 'txt.txt'); //связываем файловую переменную с файлом
reset(MyTextFile);                 //открываем файл для чтения
n:=0; //количеству записей присвои нулевое значение
while not eof (MyTextFile) do //пока чтение файла не окончено
  begin
    inc(n);              //увеличить счетчит записей на 1
    readln(MyTextFile,k); //считать целое число
    mas_number[n]:=k;     //запомнить целое число в массив
    end;
CloseFile(MyTextFile); //закрываем файл
s:='';
for i:=1 to n do //формируем строку для вывода в цикле
  s:=s+IntToStr(mas_number[i])+'   ';
  label4.caption:=s; //вывести сформированную на форму в компонент label4
  end;
  //процедуры
 
end.
Добавлено через 8 минут
Kodzaev, смогешь?
0
 Аватар для Romantik_FM
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
18.02.2013, 21:22
а так можно?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
t:tstringlist;
i:integer;
DivPer, AddPer: integer;
begin
DivPer:=1;
AddPer:=0;
t:=tstringlist.Create;
t.LoadFromFile('путь_к_файлу.txt');
for I := 0 to t.Count-1 do 
begin
if t[i] mod 2 = 0 then DivPer:=DivPer*t[i] else
AddPer:=AddPer+*t[i]; 
end;
 Label1.Caption:=IntToStr('Сумма равна'+AddPer);
Label2.Caption:=IntToStr('Произведение равно'+DivPer);
end;
1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
18.02.2013, 21:25
Вот консольное приложение. Запихни в свою программу.
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var
  f: Text;
  s: String;
  k,sum: Integer;
  p: Cardinal;
BEGIN
Writeln('Введите имя файла без расширения: ');
Readln(s);
AssignFile(f,s+'.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  k:=0;
  sum:=0;
  p:=1;
  While not Eof(f) do
  begin
    Inc(k);
    Readln(f,s);
    If Odd(k) Then
    Inc(sum,StrToInt(s))
    Else
    p:=p*StrToInt(s);
  end;
  Writeln('Сумма = ',sum);
  Writeln('Произведение = ',p);
  CloseFile(f);
end
Else
Writeln('Файл не найден');
Readln
END.
1
0 / 0 / 1
Регистрация: 18.02.2013
Сообщений: 27
18.02.2013, 21:39  [ТС]
Цитата Сообщение от Kodzaev Посмотреть сообщение
Вот консольное приложение. Запихни в свою программу.
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var
  f: Text;
  s: String;
  k,sum: Integer;
  p: Cardinal;
BEGIN
Writeln('Введите имя файла без расширения: ');
Readln(s);
AssignFile(f,s+'.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  k:=0;
  sum:=0;
  p:=1;
  While not Eof(f) do
  begin
    Inc(k);
    Readln(f,s);
    If Odd(k) Then
    Inc(sum,StrToInt(s))
    Else
    p:=p*StrToInt(s);
  end;
  Writeln('Сумма = ',sum);
  Writeln('Произведение = ',p);
  CloseFile(f);
end
Else
Writeln('Файл не найден');
Readln
END.
спасибо большое
жаль что не примут консольное приложение

Добавлено через 5 минут
Цитата Сообщение от Romantik_FM Посмотреть сообщение
а так можно?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
t:tstringlist;
i:integer;
DivPer, AddPer: integer;
begin
DivPer:=1;
AddPer:=0;
t:=tstringlist.Create;
t.LoadFromFile('путь_к_файлу.txt');
for I := 0 to t.Count-1 do 
begin
if t[i] mod 2 = 0 then DivPer:=DivPer*t[i] else
AddPer:=AddPer+*t[i]; 
end;
 Label1.Caption:=IntToStr('Сумма равна'+AddPer);
Label2.Caption:=IntToStr('Произведение равно'+DivPer);
end;
а это вообще не пойму куда приткнуть
0
 Аватар для Romantik_FM
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
18.02.2013, 22:03
Цитата Сообщение от Ziteck Посмотреть сообщение
а это вообще не пойму куда приткнуть
на форму кнопку кинь и 2 Labela
0
 Аватар для Romantik_FM
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
18.02.2013, 22:41
думаю разберёшься. для сохранения файла использовал диалог. удачи
Вложения
Тип файла: rar чтение запись txt.rar (169.0 Кб, 3 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.02.2013, 22:41
Помогаю со студенческими работами здесь

Найти наименьшее из всех чисел, меньших 15, и его порядковый номер
Вводится последовательность ненулевых чисел, 0 – конец последовательности. Найти наименьшее из всех чисел, меньших 15 и его порядковый...

Найти наименьшее из всех чисел, меньших 15 и его порядковый номер
Помогите исправить косяк с порядковым номером,плиз Private Sub Command1_Click() Dim N, i As Integer, MIN, x As Single N =...

Заменить максимальный элемент массива произведением всех элементов, имеющих четный номер
Помогите пожалуйста Дано: одномерный массив Y(n) ; n=10. Заменить максимальный элемент массива произведением всех элементов, имеющих...

Напишите пожалуста программу :которая по заданному номеру клетки даст номер всех клеток,имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строчкам, слева на право и снизу вверх.Написать программу,которая по заданному номеру...

Сумма всех отрицательных элементов матрицы, имеющих четный номер строки (Блок-схема)
пожалуйста,помогите состаить блок-схему на данную программу!Оч благодарна зараннее! program f1; uses Crt; var A : array of...


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

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

Новые блоги и статьи
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru