ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
08.03.2009, 15:06
|
|
Новичок
Регистрация: 12.04.2008
Сообщений: 8
Провел на форуме:
78018
Репутация:
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
Провел на форуме:
432982
Репутация:
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
Провел на форуме:
78018
Репутация:
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
Провел на форуме:
905389
Репутация:
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
Провел на форуме:
905389
Репутация:
332
|
|
Memo1.Lines:=dat.readstrings('UINs','DATA',Memo1.L ines);
попробуй memo1.lines .text
|
|
|
|
08.03.2009, 16:06
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Сообщение от KIR@PRO
попробуй memo1.lines.text
Таже самая ошибка =(
|
|
|
|
08.03.2009, 16:46
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
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
Провел на форуме:
1229135
Репутация:
425
|
|
дай описание процедуры
|
|
|
|
08.03.2009, 17:45
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
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
Провел на форуме:
432982
Репутация:
6
|
|
Все уже вопрос решен, способом который предложил KIR@PRO
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
