Где ошибка в задаче ?

@botasa · Регистрация: 18.01.2011

Студворк — интернет-сервис помощи студентам

Сижу уже 2-ю неделю, уже с рота пена идет, сил и нервов уже нету ... не могу понять где ошибка ...

Вывести таблицу соответствий для площадей или объемов, если
тавншип (США) = 93,24 кв. км;

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
( clear-screen )
 
( setq a 0 c 1 )
( setq townShip 93.24 )
 
( defun fun( x )
    ( loop
    ( setq a ( + a c ) )
    ( setq townShip ( * a townShip ) )
        (
            ( cond ( ( > a x ) ( return ) )
            ( princ a )
            ( print townShip )
            )
        )
    )
)
 
( princ "input a number : ")
( setq num( read ) )
( princ "township       P")
( fun num )
 
 
( fresh-line )
( princ "Press any key to exit ")
( fresh-line )
( setq xz ( read ) )
( system )

transformator.t · 05.11.2011, 15:38

зачем кругом эти пробелы? и вот это

что за стиль такой? нихрена не понятно)

Добавлено через 24 минуты
что-то типа этого требуется?

Lisp
1
2
3
4
5
6
7
8
9
10
11
CL-USER> (defun fun (n)
         (dotimes (v n) (format t "бла-а-а :~a -> ~a~%" (1+ v) (* (1+ v) 93.24))))
FUN
CL-USER> (fun 5)
бла-а-а :1 -> 93.24
бла-а-а :2 -> 186.48
бла-а-а :3 -> 279.72
бла-а-а :4 -> 372.96
бла-а-а :5 -> 466.19998
NIL
CL-USER>

@botasa · 05.11.2011, 15:50 **[ТС]**

1) я не знаю что у тебя там написано, вот написал на С++ тоже самое

int main(array<System::String ^> ^args)
{
float townShip = 93.24;
int num;
cin >> num;
system("cls");
cout << "township\tP\n";
for ( int i = 1; i < num; i++ )
{
cout << setw( 8 ) << i << "\t" << i * townShip << endl;
}
system("pause");
return 0;
}

2) пробелы у меня там для улучшения читаемости кода + красиво и легче искать ошибку ...

transformator.t · 05.11.2011, 15:59

botasa, поздравляю)

@botasa · 05.11.2011, 16:03 **[ТС]**

Сообщение от transformator.t

botasa, поздравляю)

с чем ??? мне это надо на лиспе а не на С++, на С++ я просто пример показал

transformator.t · 05.11.2011, 16:06

а это что? ->

Lisp
1
2
CL-USER> (defun fun (n)
             (dotimes (v n) (format t "бла-а-а :~a -> ~a~%" (1+ v) (* (1+ v) 93.24))))

@botasa · 05.11.2011, 16:09 **[ТС]**

Сообщение от transformator.t

а это что? ->

Lisp
1
2
CL-USER> (defun fun (n)
             (dotimes (v n) (format t "бла-а-а :~a -> ~a~%" (1+ v) (* (1+ v) 93.24))))

мне это надо написать как у меня в самом 1-ом примере через

Lisp
1
loop  и  cond

без

Lisp
1
CL-USER>  dotimes  format и остальных приколов ...

но за помощь спасибо

transformator.t · 05.11.2011, 16:21

вот тебе с loop

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CL-USER> (defun fun (x)
       (loop for i from 1 to x do 
        (format t "блааа ~a -> ~a~%" i (* i 93.24))))
FUN
CL-USER> (fun 10)
блааа 1 -> 93.24
блааа 2 -> 186.48
блааа 3 -> 279.72
блааа 4 -> 372.96
блааа 5 -> 466.19998
блааа 6 -> 559.44
блааа 7 -> 652.68
блааа 8 -> 745.92
блааа 9 -> 839.16
блааа 10 -> 932.39996
NIL
CL-USER>

чем format не нравиться?

Добавлено через 3 минуты

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

пробелы у меня там для улучшения читаемости кода + красиво и легче искать ошибку ...

ты не первый, кто на этот счёт заблуждается))

@botasa · 05.11.2011, 16:32 **[ТС]**

Сообщение от transformator.t

вот тебе с loop

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CL-USER> (defun fun (x)
       (loop for i from 1 to x do 
        (format t "блааа ~a -> ~a~%" i (* i 93.24))))
FUN
CL-USER> (fun 10)
блааа 1 -> 93.24
блааа 2 -> 186.48
блааа 3 -> 279.72
блааа 4 -> 372.96
блааа 5 -> 466.19998
блааа 6 -> 559.44
блааа 7 -> 652.68
блааа 8 -> 745.92
блааа 9 -> 839.16
блааа 10 -> 932.39996
NIL
CL-USER>

чем format не нравиться?

Добавлено через 3 минуты

ты не первый, кто на этот счёт заблуждается))

епт ну пойми что так как у тебя мне не канает ... разные команды у тебя, что я их не знаю и даже не хочу знать ... мне надо по такому шаблону как у меня в самому 1-му примере .... + оно у меня твой код не работает, я писал это и закидывал в простую EXE MULISP.COM 46 kb ...

Добавлено через 3 минуты

Сообщение от transformator.t

ты не первый, кто на этот счёт заблуждается))

не понял тебя на счет форматирования текста ... в книгах которые я читал в разделе форматирование программного коду писали что надо делать и пробелы и табуляции и т.д. так как это улучшает читабельность коду, красиво выглядит и легче искать ошибки ...

transformator.t · 05.11.2011, 16:39

ладн, забудь) но продолжай читать)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@botasa 3 / 3 / 5 Регистрация: 18.01.2011 Сообщений: 131
	05.11.2011, 15:50 [ТС]
	1) я не знаю что у тебя там написано, вот написал на С++ тоже самое int main(array<System::String ^> ^args) { float townShip = 93.24; int num; cin >> num; system("cls"); cout << "township\tP\n"; for ( int i = 1; i < num; i++ ) { cout << setw( 8 ) << i << "\t" << i * townShip << endl; } system("pause"); return 0; } 2) пробелы у меня там для улучшения читаемости кода + красиво и легче искать ошибку ... 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	05.11.2011, 15:59
	botasa, поздравляю) 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	05.11.2011, 16:39
	ладн, забудь) но продолжай читать) 0