Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
Жираф в квадрате
32 / 32 / 2
Регистрация: 28.02.2010
Сообщений: 282
1

Есть ли оператор, который переводит строковый тип в Integer или Real

17.04.2010, 11:48. Показов 1556. Ответов 3
Метки нет (Все метки)

Напомните мне пожалуйста как называется оператор, который переводит строковый тип в интегер или реал
Друзья сказали strinint или string to integer должен быть, пробовал неполучается=((


И вообще реальна задумка написать программу, чтобы пользователь вводил в одну строку без пробелов (число-действие-второе число) пограмма выводит тоже самое что написал пользователь и ответ,при этом он вводит числа и знак без пробелов ,тоесть программа должна распознать где знак действия и числа.


Саму пограмму не пишите сам хочу мне только нехватает перевода строки в интегер.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.04.2010, 11:48
Ответы с готовыми решениями:

Дано описание массива, у которого индексы имеют ограниченный тип над integer, а тип элемента – integer или real
Дано описание массива, у которого индексы имеют ограниченный тип над integer, а тип элемента –...

Нельзя преобразовать тип function(z: integer;w: integer;e: integer): real к real
program pract18; uses crt; var x,a,i,k:integer; y:real; function prm1 (z,w,e:integer):real; ...

Дано описание массива, у которого индексы имеют перечислимый тип, а тип элемента – integer или real. Выведите на экран,
Дано описание массива, у которого индексы имеют перечислимый тип, а тип элемента – integer или...

Нельзя преобразовать тип function(a: integer;b: integer):integer к real
unit matr1; interface type matr2=array of real; matr3=array of real; procedure sum...

3
Retired
7724 / 2556 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
17.04.2010, 11:55 2
Попробуй процедуру Val()
1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
17.04.2010, 11:56 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var s:strung;
     t:real;
     f,c:integer;
.............................
для вещественных
val(s,t,c);
для целых
val(s,g,c);
проверка числа
val(s,f,c);
if c=0 then write('Это целое число')
else
 begin
  val(s,t,c);
  if c=0 then write('Это вещественное число')
  else write('Это не число');
 end;
1
Жираф в квадрате
32 / 32 / 2
Регистрация: 28.02.2010
Сообщений: 282
25.04.2010, 04:21  [ТС] 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
program kast;
uses crt;
var s,a,b:string[20]; c:char; r,a1,b1:real; k,i,d,w:integer;
begin
  clrscr;
  readln(s);
  d:=Length(s);
  for i:=1 to d do
  begin
    c:=s[i];
    if (c='+') or (c='-') or (c='*') or (c='/') then
    begin
      k:=i;
      i:=d;
    end;
  end;
  a:=copy(s,1,k-1);
  b:=copy(s,k+1,d-k);
  val(a,a1,w);
  val(b,b1,w);
  case c of
    '+':r:=a1+b1;
    '-':r:=a1-b1;
    '*':r:=a1*b1;
    '/':r:=a1/b1;
  end;
  clrscr;
  writeln(s,'=',r:2:2);
  readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2010, 04:21

Program1.pas(7) : Нельзя преобразовать тип KeyValuePair<real,integer> к real
program pomogite; var x, y: real; begin readln(x); if x=&gt;-2 and 3&gt;=x then y:=sqrt(x*x+4) ...

Преобразовать тип real к integer
uses crt; var a,b,c:integer; begin write('Введите ваш вес(кг):'); readln(a); write('Введите...

Тип integer в программе заменить на real
В данной программе рассматривается сортировка методом простого выбора,необходимо Тип integer в...

Нельзя преобразовать тип real к integer
Снова я, вылезает ошибка: Program3.pas(18) : Нельзя преобразовать тип real к integer Проверял...


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

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

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