rman
03.02.2012 19:53 Gajim
есть те кто шарит в Delphi что за хуйня почему оно говорит что не правельное значение Integer
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c,d,e:integer; numberString:string[3];
begin
ReadLn(numberString);
a := StrToInt('numberString[0]');
b := StrToInt('numberString[1]');
c := StrToInt('numberString[2]');
d := StrToInt('numberString[3]');
e := a+b+c+d;
WriteLn(e);
end.
29 comments
recommend
bookmark
subscribe
что за хуйню ты тут написал?
в каком смысле
сука не та функция походу
ReadLn(numberString);
a := StrToInt('numberString[0]');
говнокод тот
считывает значение клавиатуры в numberString потом "а" присваивает 0 символ строки numberString с типом integer, так должно быть, но есть хз как
у тебя в коде всё не так
хуево, я бы это даже на си написал а на дельфи немогу, сука
доки читай по ReadLn, например, и StrToInt, и смотри, что у тебя на входе и на выходе
спасибо
а потом задавай свои ответы
у меня сначало было просто Read это оно для этого и нуждается, проблема походу не в StrToInt а в том что я ему скармливаю
зачем ты ей имя переменной в кавычках скармливаешь? и как ты введённую строку ловким движением в массив превратил?
бля если я запилил 4 знака в строке то я не могу обращаться к знаку строки который мне нужен?
Example: read data until Enter is pressed and put in variable S:
ReadLn(S);
Example to input a single character to variable C, given that C is of type "char" (press ENTER afterwards) :
Read(C);
там же есть специальный тип String. забудь о своей говна сишечке
она охуеннее
неосилятор закукарекал
лол
ВЫ ВЫИГРАЛИ АВТОМОБИЛЬ
Ваз 2107
крути барабан
СЕКТОР ПРИЗ НА БАРАБАНЕ! ПЯТЬ РУБЛЕЙ ИЛИ ПРИЗ?
Десять рублей?
Открываем ящик... Вы получаете воздушный шарик!
У меня есть зелёный, и есть синий. Какой возьмёшь?
Если я возьму зелёный шарик, то тогда пчёлы подумают, что я листик. А если я возьму синий шарик, то тогда они подумают, что я маленькая тучка. Давай синий.
НАЧАЛЬНИК! ЭТОТ ПИДАРАС ОБОСРАЛСЯ! НАЧААААААААЛЬНИИИИИИИИИИК!
содомиты