1 / 1 / 1
Регистрация: 04.11.2015
Сообщений: 62
1

Добавить в программу функцию или процедуру

05.11.2015, 12:38. Показов 518. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добавьте сюда функцию или процедуру
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var n,i:integer;
b: array [ 1 .. 100 ] of real;
begin
 writeln( 'введите n=' );
 readln(n);
 b[1]:=9;; 
 writeln(b[ 1 ]: 5 : 5 ); 
 for i:= 2 to n do 
  begin b[i]:=0.1*b[i- 1 ]+10;
   writeln(b[i]: 5 : 5 );
  end; 
end.
Добавлено через 22 часа 49 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
procedure q(i,n:integer);
begin
 var b: array [ 1 .. 100 ] of real;
  for i:= 2 to n do 
   begin
    b[i]:=0.1*b[i- 1 ]+10;
    writeln(b[i]: 5 : 5 );
   end;
end;
begin
 var n,i:integer; 
 var b: array [ 1 .. 100 ] of real;
  writeln( 'введите n=' );
  readln(n);
  b[1]:=9; 
  writeln(b[ 1 ]: 5 : 5 );
  q(i,n);
end.
выдает не совсем верные ответы: не показывает 9 десятых, сотых, тысячных и т.д
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2015, 12:38
Ответы с готовыми решениями:

Не получается составить программу используя процедуру или функцию.
Очень нужна помощь старших в решении задачи. Вот изображение вопроса:

Сделать программу, используя функцию или процедуру
Здравствуйте, с наступающим всех, помогите решить задачку, спасибо заранее! а^2.1 - sinax/ b^2.1 -...

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

Добавить функцию(процедуру) линейной комбинации векторов
Добрый день, есть задача, в ней я читаю сумму векторов, как в нее добавить процедуру линейной...

1
3406 / 1825 / 489
Регистрация: 28.02.2015
Сообщений: 3,697
06.11.2015, 00:10 2
Цитата Сообщение от pashocheck Посмотреть сообщение
Добавлено через 22 часа 49 минут
выдает не совсем верные ответы: не показывает 9 десятых, сотых, тысячных и т.д
Это надо так рабочий код испортить.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n,i:integer;
b: array [ 1 .. 100 ] of real;
function f_x(a:real):real;
  begin
    f_x:=0.1*a+10
  end;
begin
 write( 'введите n=' );
 readln(n);
 b[1]:=9;
 writeln(b[ 1 ]: 5 : 5 );
 for i:= 2 to n do
  begin b[i]:=f_x(b[i-1]);
   writeln(b[i]: 5 : 5 );
  end; 
end.
1
06.11.2015, 00:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2015, 00:10
Помогаю со студенческими работами здесь

Используя очередь или стек описать процедуру или функцию обработки узлов дерева.
Используя очередь или стек (считать уже описанными их типы и операции над ними) описать процедуру...

Используя очередь или стек, описать процедуру или функцию, определяющую число вхождений элемента Е в дерево Т
Народ помогите пожалуйста! Проблема в том, что не понимаю суть задания. Прошу не код, а объяснения...

Добавить в программу процедуру
Нужно добавить в программу процедуру или функцию. Спасибо. const nmax=100; var a:array of...

Добавить процедуру в готовую программу
Помогите надо в эту программу добавить процедуру создать процедуру поиска и вывода сотрудниц страше...

Написать процедуру или функцию
Наити количество элементов группы, содержащей наибольшее число одинаковых элементов вектора...

Функцию или процедуру к задаче!
Помогите сделать для цикла функцию или процедуру, я не умею а оч нада, я пытался но не фига не...


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

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

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