УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Типа калькулятор

Страница 2 из 4

Опции темы

Поиск в этой теме

Опции просмотра

#11

20.06.2007, 15:28

Fire3d

Познающий

Регистрация: 14.04.2007

Сообщений: 46

Провел на форуме:
842554

Репутация: 13

Цитата:

Сообщение от 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

Провел на форуме:
404152

Репутация: 94

Цитата:

Сообщение от Fire3d

Рад старатся ))))
Твой вариант не работает (

пишет типа отсутвует библиотека SysUtils.

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

#13

20.06.2007, 15:50

NetMan

Участник форума

Регистрация: 09.02.2004

Сообщений: 122

Провел на форуме:
1089794

Репутация: 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

Провел на форуме:
404152

Репутация: 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

Провел на форуме:
1089794

Репутация: 134

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

#16

20.06.2007, 15:59

Exile1985

Участник форума

Регистрация: 10.08.2006

Сообщений: 147

Провел на форуме:
404152

Репутация: 94

Цитата:

Сообщение от NetMan

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

честно сказать не понял вопроса.
стесняюсь спросить, эт ты щас про что спросил?

#17

20.06.2007, 16:15

NetMan

Участник форума

Регистрация: 09.02.2004

Сообщений: 122

Провел на форуме:
1089794

Репутация: 134

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

#18

20.06.2007, 16:19

Fire3d

Познающий

Регистрация: 14.04.2007

Сообщений: 46

Провел на форуме:
842554

Репутация: 13

Только сложение.

#19

20.06.2007, 16:38

NetMan

Участник форума

Регистрация: 09.02.2004

Сообщений: 122

Провел на форуме:
1089794

Репутация: 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.