Технический форум - Помогите решить задачи на Паскаль

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

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите решить задачи на Паскаль (http://www.tehnari.ru/f43/t48585/)

parsukov_d

08.03.2011 23:25

Помогите решить задачи на Паскаль

помогите решить задачи на паскаль
вот эти 2 задачи
1)
Составьте программу, которая запрашивает название шахматной фигуры (один из сим-волов: 'п' — пешка, 'с' — слон, 'л' — ладья, 'ф' — ферзь, 'к' — конь) и её цвет ('б' — белый или 'ч' — чёрный) и выдаёт её полное название.
(так должна работать)

Введите название и цвет фигуры: сч
Это чёрный слон

2)
Составьте программу по следующему сценарию: на экране нарисован домик. При на-жатии клавиши <н> (ночь) в окне загорается свет, при нажатии клавиши <д> (день) свет в окне гаснет.

помогите кто может сам паскале сильно туплю:(

MrSTEP

08.03.2011 23:55

Ничего сложного. В первой задаче берете первый символ, и оператором case определяете фигуру, затем по второму символу так же определяете цвет. Конкатенируем строки и выводим ответ.
Во второй - домик рисуется псевдографикой (символами) или графикой - линиями, окружностями, прямоугольниками?

Vladimir_S

09.03.2011 09:46

Цитата:

Сообщение от MrSTEP (Сообщение 481889)

И еще - если нужно использовать графику, то какой Паскаль: АВС или Borland? Потому что там существенно разная графика.

Hakmax

09.03.2011 17:41

Канвасом на форме домики и чёрте что ещё можно нарисовать..

kreol

09.03.2011 17:46

эм по моему в борланд паскале нету канваса... в ABC не знаю.

parsukov_d

09.03.2011 17:47

Цитата:

Сообщение от Vladimir_S (Сообщение 481945)

Borland

parsukov_d

09.03.2011 17:56

прошу вас всех помочь мне пока что,
в 1 задаче
объясните немного подробно очень я его плохо понимаю (этот паскаль)

Hakmax

09.03.2011 18:28

лепишь на форму Эдит, Лэйбл, Баттон, по нажатии кнопки пишешь код:

Код:

 if Edit1.Text='пч' then Label1.Caption:='Пешка чёрная';

  if Edit1.Text='пб' then Label1.Caption:='Пешка белая';

  if Edit1.Text='сч' then Label1.Caption:='Слон чёрный';

  if Edit1.Text='сб' then Label1.Caption:='Слон белый';

  if Edit1.Text='лб' then Label1.Caption:='Ладья белая';

  if Edit1.Text='лч' then Label1.Caption:='Ладья чёрная';

  if Edit1.Text='фб' then Label1.Caption:='Ферзь белый';

  if Edit1.Text='фч' then Label1.Caption:='Ферзь чёрный';

  if Edit1.Text='кб' then Label1.Caption:='Король белый';

  if Edit1.Text='кч' then Label1.Caption:='Король чёрный';

кстати case и строки не совместимы..а то кто-то там хотел с кейсом..

MrSTEP

09.03.2011 19:12

Цитата:

стати case и строки не совместимы..а то кто-то там хотел с кейсом..

Кому вы рассказываете? Строки несовместимы, а символы очень даже:

Код:

var s,res:string;

begin

write ('Davai stroky: ');

readln (s);



case s[1] of

'b': res:='Belyi';

'c': res:='Chernui';

end;

writeln (res);

end.

Читайте внимательнее советы и задания.
1) Я сразу говорил, что case надо использовать с символом строки, а не со всей строкой.
2) с чего вы взяли, что нужна программа в делфи? Автор трижды сказал о паскале, а затем в теме это повторили еще несколько раз.

Хелен

10.03.2011 19:00

Да уж, я так сразу додуматься даже не могу буковки с буковками сложить :tehnari_ru_121:

На ABC пишу возможный вариант:

Код:

 var

n,m:integer;

 begin

writeln('vvedite nomer bukvi: 1-P, 2-S, 3-L, 4-F, 5-K');

read(n);

case n of

1:writeln('Peshka');

2:writeln('Slon');

3:writeln('Ladia');

4:writeln('Fers');

5:writeln('Kon');

 end;

writeln('vvedite zvet: 6-W, 7-B');

 read(m);

case m of

6:writeln('White');

7:writeln('Black');

end;

end.

Часовой пояс GMT +4, время: 13:20.

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

Показывать 40 сообщений этой темы на одной странице