ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 20.06.2007, 15:28
Fire3d
Познающий
Регистрация: 14.04.2007
Сообщений: 46
С нами: 10039785

Репутация: 13
Red face

Цитата:
Сообщение от Exile1985  
ну ты следующий пост посмотри
а вообще спасибо, настроение офигенно поднял
особенно этим:


Рад старатся ))))
Твой вариант не работает (
Цитата:
uses
SysUtils;

var
b,c,r,y:integer;
a:string;
begin
write('4to xotite slozhit?');
readln(a);
y:=Length(a);
b:=strtoint(copy(a,pos('+',a)+1,y));
c:=strtoint(copy(a,1,pos('+',a)-1));
r:=c+b;
writeln('Otvet=',r);
readln;
end.
пишет типа отсутвует файл SysUtils.TPU

Последний раз редактировалось Fire3d; 20.06.2007 в 15:30..
 
Ответить с цитированием

  #12  
Старый 20.06.2007, 15:31
Exile1985
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами: 10395573

Репутация: 94
По умолчанию

Цитата:
Сообщение от Fire3d  
Рад старатся ))))
Твой вариант не работает (

пишет типа отсутвует библиотека SysUtils.
ааа чел, тода сори, попробуй за место SysUtils поставить другой модуль свой crt, я на делфе писал, все пашет замечательно, можно воодить не только 4+4 но вообще любые числа т.е. и 44 и 6532+5563 ей вообще пофиг, а так все работает сам проверял
 
Ответить с цитированием

  #13  
Старый 20.06.2007, 15:50
NetMan
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
С нами: 11710201

Репутация: 134
По умолчанию

Я же дал новый рабочий код!
Код:
uses crt;
var
    a,b,c:real;
    action:char;
begin
      write('a='); readln(a);
      write('b='); readln(b);
      write('action='); readln(action);
      case action of
        '+':c:=a+b;
        '-':c:=a-b;
        '/':c:=a/b;
        '*':c:=a*b;
      end;
      writeln(a:1:3,action,b:1:3,'=',c:1:3);
      readln;
end.
 
Ответить с цитированием

  #14  
Старый 20.06.2007, 15:54
Exile1985
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами: 10395573

Репутация: 94
По умолчанию

Цитата:
Сообщение от NetMan  
Я же дал новый рабочий код!
Код:
uses crt;
var
    a,b,c:real;
    action:char;
begin
      write('a='); readln(a);
      write('b='); readln(b);
      write('action='); readln(action);
      case action of
        '+':c:=a+b;
        '-':c:=a-b;
        '/':c:=a/b;
        '*':c:=a*b;
      end;
      writeln(a:1:3,action,b:1:3,'=',c:1:3);
      readln;
end.


да нет чел, в твоем коде получается так:
a= //вводим первое число
b= //вводим второе число
жмем Enter и получаем
c:= //ответ

а нужно так

a:= 4+4 //т.е. вводим не по одному числу, а сразу все вместе с знаком +,-,/,*, все одной строкой, чтоб получилосьтак
a:= 25+26
жмем Enter получаем
c:=51
 
Ответить с цитированием

  #15  
Старый 20.06.2007, 15:55
NetMan
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
С нами: 11710201

Репутация: 134
По умолчанию

Exile1985 в выражении могут присутствовать скобки?
 
Ответить с цитированием

  #16  
Старый 20.06.2007, 15:59
Exile1985
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами: 10395573

Репутация: 94
По умолчанию

Цитата:
Сообщение от NetMan  
Exile1985 в выражении могут присутствовать скобки?
честно сказать не понял вопроса.
стесняюсь спросить, эт ты щас про что спросил?
 
Ответить с цитированием

  #17  
Старый 20.06.2007, 16:15
NetMan
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
С нами: 11710201

Репутация: 134
По умолчанию

Такое может быть (2+2)/4 ? Или у тебя только сложение и только 2 операнда? :d
 
Ответить с цитированием

  #18  
Старый 20.06.2007, 16:19
Fire3d
Познающий
Регистрация: 14.04.2007
Сообщений: 46
С нами: 10039785

Репутация: 13
По умолчанию

Только сложение.
 
Ответить с цитированием

  #19  
Старый 20.06.2007, 16:38
NetMan
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
С нами: 11710201

Репутация: 134
По умолчанию

Ну тогда вот так:
Код:
uses crt;
var s:string;
    a,b,c,posit:integer;

function Str2Int(Str:String):Integer;
var Res,code:integer;
begin
      val(Str,Res,code);
      Str2Int:=Res;
end;

begin
      read(s);
      posit:=pos('+',s);
      a:=Str2Int(copy(s,1,posit-1));
      b:=Str2Int(copy(s,posit+1,length(s)-posit+1));
      c:=a+b;
      write('=',c);
      readln;
end.
 
Ответить с цитированием

  #20  
Старый 20.06.2007, 16:51
Fire3d
Познающий
Регистрация: 14.04.2007
Сообщений: 46
С нами: 10039785

Репутация: 13
По умолчанию

Спасибо netman. Все пашет!

Последний раз редактировалось Fire3d; 20.06.2007 в 16:59..
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Типа Проги ЛОмать будем Morph Болталка 14 21.05.2008 16:38
А как вы так видео типа сжимаете? до ~1мб... PEPSICOLA Комментарии к видео 5 06.08.2007 10:06



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.