Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
kekcuk6
0 / 0 / 0
Регистрация: 31.10.2015
Сообщений: 10
1

Задача с функциями

22.11.2015, 12:00. Просмотров 796. Ответов 1
Метки нет (Все метки)

Пользователь вводит два ряда чисел, первая функция должна сложить в первом ряду такую последовательность чисел(1,3,5,7..и.т.д), вторая функция должна сложить во втором ряду такую последовательность чисел(2,4,6,8..и.т.д)

Главное нельзя использовать: стандартные функции,массивы, модули.

Добавлено через 12 часов 5 минут
Имеется ввиду: первая функция складывает не парные числа из первого ряда чисел.
Вторая функция складывает парные числа из второго ряда чисел.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2015, 12:00
Ответы с готовыми решениями:

матрицы с функциями
Здравствуйте! Вот у меня была задача: Даны матрицы А(2, 2), В(2, 2), С(2, 2), D(2, 2), Е(2,...

Работа с процедурами и функциями
Помогите решить двумя способами в pascal: F=g(1.7t,s)+g(3.7,s)-g(3s-1,st)...

Задачи с функциями и массивами
1. Вычислить и напечатать: y= sin(pi*x), если x>2; y= cos(pi*x),если -2<=x<=2; y= (x^2+5), если...

Работа с подпрограммами - функциями
Составить программу вычисления значения выражения используя способы программирования с созданием...

Написать с 5 встроенными функциями
Написать задачу,в которой необходимо использовать не менее 5 встроенных функций.

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4765 / 3409 / 4015
Регистрация: 05.06.2014
Сообщений: 17,042
22.11.2015, 15:55 2
Лучший ответ Сообщение было отмечено kekcuk6 как решение

Решение

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
function nechet: real;
var
  x: integer;
  sum: real;
begin
  repeat
    readln(x);
    if x mod 2 <> 0 then
      sum := sum + x;
  until x = 0;
  nechet := sum;
end;
 
function chet: real;
var
  x: integer;
  sum: real;
begin
  repeat
    readln(x);
    if x mod 2 = 0 then
      sum := sum + x;
  until x = 0;
  chet := sum;
end;
 
begin
  writeln('Сумма нечетных: ', nechet);
  writeln('Сумма четных:   ', chet);  
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2015, 15:55

Работа с функциями и процедурами!
Помогите пожалуйста: Задана строка символов латинского алфавита. Определите, какой символ ...

Работа с процедурами и функциями
Составить программу с использованием процедуры или функции: const LIM=2; W=8; D=2; n=5; m=5; {...

Работа с процедурами и функциями
1. Создать функцию программиста, которая подсчитывает в заданной строке количество символов «а» или...


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

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

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