 |
|
08.03.2009, 15:06
|
|
Новичок
Регистрация: 12.04.2008
Сообщений: 8
С нами:
9515627
Репутация:
1
|
|
Решил вспомнить паскаль , сел открыл задачник нашел самую легеньку и на ней же и запоролся , помогите найти ошибку в коде
Код:
program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
|
|
|
08.03.2009, 15:27
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Всетаки я так и не могу разобраться с TdataFile. Вот у меня строчка записи мемо
Код:
dat.WriteStrings('UINs','DATA',Memo1.Lines);
А вот строчка чтения
Код:
Memo1.Lines:=dat.readstrings('UINs','DATA',Memo1.Lines);
И вот тут компилятор пишет ошибку
Код:
[Error] Unit2.pas(125): Incompatible types: 'TStrings' and 'procedure, untyped pointer or untyped parameter'
Немогу понять в чем тут дело, хотя едиты прекрастно сохраняет
Вот если кому надо сам компонент _http://www.programmersforum.ru/attachment.php?%20%20attachmentid=2764&d=120361290 5
Последний раз редактировалось Maxxxtri23; 08.03.2009 в 15:35..
|
|
|
|
08.03.2009, 15:46
|
|
Новичок
Регистрация: 12.04.2008
Сообщений: 8
С нами:
9515627
Репутация:
1
|
|
Сообщение от handless
Решил вспомнить паскаль , сел открыл задачник нашел самую легеньку и на ней же и запоролся , помогите найти ошибку в коде
Код:
program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
если место "/" ставиш целочисленное деление "div" то все ок ... но как мне с "/" работать
|
|
|
|
08.03.2009, 15:53
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
С нами:
9671366
Репутация:
332
|
|
Сообщение от handless
Решил вспомнить паскаль , сел открыл задачник нашел самую легеньку и на ней же и запоролся , помогите найти ошибку в коде
Код:
program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
ну для начала грубая ошибка:
Код:
sytki1 := radiys1/skorost1;
....
sytki2 := radiys2/skorost2;
вот такео писать при заданном sytki1, sytki2: integer;
в результате деления целого типа неполучится, может получиться челое число но не тип! поетому сделай так:
sytki1, sytki2: Real;
кароче зелёным выделено все что исправлено, красным то что удалить надо:
Код:
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2: integer;
sytki1, sytki2:real;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
|
|
|
|
08.03.2009, 15:59
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
С нами:
9671366
Репутация:
332
|
|
Memo1.Lines:=dat.readstrings('UINs','DATA',Memo1.L ines);
попробуй memo1.lines .text
|
|
|
|
08.03.2009, 16:06
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Сообщение от KIR@PRO
попробуй memo1.lines.text
Таже самая ошибка =(
|
|
|
|
08.03.2009, 16:46
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
С нами:
9671366
Репутация:
332
|
|
2 Maxxxtri23
[Error] Unit2.pas(125): Incompatible types: 'TStrings' and 'procedure, untyped pointer or untyped parameter'
т.к. readstrings является процедурой (исходя из ошибки) то естественно присваивать её результат переменной нельзя т.к. процетура не имеет результата.... следоватьельно надо убрать вот ето:
memo1.lines:=dat.readstrings('UINs','DATA',Memo1.Lines);
тка попробуй скорее всего должно работать
p.s. должно остаться только
Код:
...
dat.readstrings('UINs','DATA',Memo1.Lines);
...
Последний раз редактировалось KIR@PRO; 08.03.2009 в 16:49..
|
|
|
|
08.03.2009, 16:54
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами:
9365528
Репутация:
425
|
|
дай описание процедуры
|
|
|
|
08.03.2009, 17:45
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от KIR@PRO
попробуй memo1.lines.text
Memo1.Lines.add(dat.readstrings('UINs','DATA',Memo 1.L ines));
|
|
|
|
08.03.2009, 17:49
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Все уже вопрос решен, способом который предложил KIR@PRO
|
|
|
|
|
|
|
|
Здесь присутствуют: 10 (пользователей: 0 , гостей: 10)
|
|
|
|
Похожие темы
Линейный вид
