Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
ПАRАНОИК
0 / 0 / 0
Регистрация: 14.06.2011
Сообщений: 13
1

Вычислить значение функции

30.06.2011, 14:01. Просмотров 1027. Ответов 4
Метки нет (Все метки)

1:вычислить значение функции: F(x)=0,если х<=1 и F(x)=1/(x+6),если х>1. Написал программу на Паскале АВС выдает ошибку.В чем причина?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program razvet24;
uses crt;
var x: integer;
begin
clrscr;
writeln('vvedite X ',x);
if x<=1 then x:=0
writeln('znachenie funkcii = ',x)
else
if x>1 then x:= 1/(x+6)
writeln('znachenie funkcii = ',x);
end.
2: В соревнованиях по многоборью (m видов) участвуют n спортсменов. Результаты соревнований представлены в виде двумерного массива: дан список спортсменов и указаны очки, набранные спортсменами в разных видах программы. Составить программу обработки данных, позволяющую вывести результирующую таблицу, содержащую список спортсменов, суммы набранных очков и занятые места (упорядочить в соответствии с местами, занятыми спортсменами)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2011, 14:01
Ответы с готовыми решениями:

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

Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента
Составить программу табулирования и исследования функции f(x) на заданном...

Вычислить значение функции e^x=1+x+x^2/2+x^3+3 и сравнить полученной результат c значением стандартной функции
Здраствуйте! Пожалуйста укажите услугу в помочи, вот задачка: Оформить у виде...

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

Вычислить значение функции
Составить структурную схему и программу для вычисления значения y(x) и для...

4
Puporev
Модератор
54978 / 42287 / 29200
Регистрация: 18.05.2008
Сообщений: 99,910
30.06.2011, 14:35 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program razvet24;
uses crt;
var x: integer;
    y:real;
begin
clrscr;
writeln('vvedite X ');
read(x);
if x<=1 then y:=0
else y:=1/(x+6);
writeln('znachenie funkcii = ',y);
end.
1
ПАRАНОИК
0 / 0 / 0
Регистрация: 14.06.2011
Сообщений: 13
30.06.2011, 14:44  [ТС] 3
Puporev, спасибо большое!!!
0
Puporev
Модератор
54978 / 42287 / 29200
Регистрация: 18.05.2008
Сообщений: 99,910
30.06.2011, 15:04 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вторая как-то так.
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
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
60
61
62
uses crt;
const nmax=10;
var f:array[1..nmax] of string;
    r:array[1..nmax,1..nmax+1] of integer;
    n,m,i,j,s,k,x:integer;
    y:string[10];
begin
repeat
write('Количество спортсменoв до ',nmax,' n=');
read(n);
until n in [1..nmax];
repeat
write('Количество видов до ',nmax,' m=');
read(m);
until m in [1..nmax];
writeln('Введите фамилии спортсменов и количество очков по видам:');
for i:=1 to n do
 begin
  writeln('Спортсмен ',i);
  write('- фамилия: ');
  read(f[i]);
  f[i]:=copy(f[i],1,10);
  s:=0;
  for j:=1 to m do
   begin
    write('- вид ',j,'=');
    read(r[i,j]);
    s:=s+r[i,j];
    r[i,m+1]:=s;
   end;
 end;
clrscr;
writeln('Результаты соревнований:');
writeln('Сумма':m*4+20);
for i:=1 to n do
 begin
  write(i:2,f[i]:11);
  for j:=1 to m do
  write(r[i,j]:4);
  writeln(r[i,m+1]:7);
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if r[i,m+1]<r[j,m+1] then
 begin
  for k:=1 to m+1 do
   begin
    x:=r[i,k];
    r[i,k]:=r[j,k];
    r[j,k]:=x;
   end;
  y:=f[i];
  f[i]:=f[j];
  f[j]:=y;
 end;
write('Нажмите Enter для продолжения');
readln;
writeln('Итоги соревнований:');
writeln(' Фамилия  Сумма  Место');
for i:=1 to n do
writeln(f[i]:10,r[i,m+1]:5,i:5);
end.
1
ПАRАНОИК
0 / 0 / 0
Регистрация: 14.06.2011
Сообщений: 13
01.07.2011, 06:27  [ТС] 5
Puporev, спасибо огромное!!!выручил!!!

Добавлено через 12 часов 14 минут
а можно блок-схему ко 2 задаче?
0
01.07.2011, 06:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.07.2011, 06:27

Вычислить значение функции
y=4{x}^{3}-2{x}^{2}+5 на отрезке \left с заданным шагом изменения аргумента...

Вычислить значение функции
Используя оператор условия (if...then), составить программу для вычисления. Все...

Вычислить значение функции
Дана формула. Написать программу счета по данной формуле. Вычислить значение...


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

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

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