Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 21.01.2021
Сообщений: 5
1

Pascal. Всегда ответ Infinity. Что не так с кодом?

21.01.2021, 22:18. Просмотров 611. Ответов 1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Project_3_1_2;
 
begin
var a,b,c,k,t:real;
Writeln('Введіть значення x:');
Readln(a);
Writeln('Введіть значення b:');
  Readln(b);
  Writeln('Введіть значення c:');
  Readln(c);
  Writeln('Введіть значення k:');
  Readln(k);
  t:=0.15*k*a*(abs(a+b+c))/(sin(a-c))+sqrt(exp((abs(a+b+c))))/(sin(a-c));
  writeln(t);
 
  
  
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2021, 22:18
Ответы с готовыми решениями:

Pascal. Всегда овтет Infinity. Что не так с кодом?
program Project_3_1_2; begin var a,b,c,k,t:real; Writeln('Введіть значення x:'); Readln(a);...

Что не так с кодом? ( пытаюсь понять, что не так? )
Есть исходный код. Hook, работает хорошо, но есть минус огромный - перестаёт писать в лог, при...

Что не так с кодом ?
Почему этот код не подходит для этой задачи: Шахматный король ходит по горизонтали, вертикали и...

Что не так с кодом?
В общем само задание выглядит так:Отформатировать текст, длина строки = 40 знаков. Вроде программа...

1
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
22.01.2021, 06:12 2
С кодом все так, просто вы вводите числа a=c и sin(a-c)=0,a на 0 делить нельзя.
Попробуйте написать так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
begin
var a,b,c,k,s,t:real;  
Writeln('Введіть значення x:');
Readln(a);
Writeln('Введіть значення b:');
  Readln(b);
  Writeln('Введіть значення c:');
  Readln(c);
  Writeln('Введіть значення k:');
  Readln(k);
  s:=sin(a-c);
  if s=0 then writeln('Значение t не определено')
  else
   begin 
    t:=0.15*k*a*(abs(a+b+c))/(sin(a-c))+sqrt(exp((abs(a+b+c))))/(sin(a-c));
    writeln(t);
   end; 
  end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2021, 06:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Что-то не так с кодом
using System; using System.Collections.Generic; using System.Linq; using System.Text; ...

Что не так с кодом
Из числа мы вычитаем число, стоящее перед ним, и так с каждым. Делаем это howmany кол-во раз. Не...

Что не так с кодом?
#include<stdio.h> #include <iostream> #include <conio.h> #include <string> #include <ctime>...

Что то не так с кодом
Запускаю. Ввожу в edittext 01026071 и всё замечательно работает. Но если после запуска нажимаю на...

что не так с кодом?
должен перебираться массив по четным значениям элементов и находится среди них минимум, однако он...

Что не так с кодом?
Задание Имеется текстовая строка, которая содержит произвольное скобочное выражение (скобки (), ,...


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

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

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