|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.03.2011, 23:25 | #1 (permalink) |
Member
Регистрация: 12.02.2011
Сообщений: 48
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -71
|
Помогите решить задачи на Паскаль
вот эти 2 задачи 1) Составьте программу, которая запрашивает название шахматной фигуры (один из сим-волов: 'п' — пешка, 'с' — слон, 'л' — ладья, 'ф' — ферзь, 'к' — конь) и её цвет ('б' — белый или 'ч' — чёрный) и выдаёт её полное название. (так должна работать) Введите название и цвет фигуры: сч 2)Это чёрный слон Составьте программу по следующему сценарию: на экране нарисован домик. При на-жатии клавиши <н> (ночь) в окне загорается свет, при нажатии клавиши <д> (день) свет в окне гаснет. помогите кто может сам паскале сильно туплю |
08.03.2011, 23:25 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, что данные темы уже обсуждаются Помогите решить задачи на C++ Помогите решить задачи на C++ Помогите решить две задачи в С++ Помогите решить три задачи на С++ Помогите решить задачи на Паскале Помогите решить задачи на С++ |
08.03.2011, 23:55 | #2 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Ничего сложного. В первой задаче берете первый символ, и оператором case определяете фигуру, затем по второму символу так же определяете цвет. Конкатенируем строки и выводим ответ.
Во второй - домик рисуется псевдографикой (символами) или графикой - линиями, окружностями, прямоугольниками? |
09.03.2011, 09:46 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
09.03.2011, 17:46 | #5 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
эм по моему в борланд паскале нету канваса... в ABC не знаю.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.03.2011, 18:28 | #8 (permalink) |
Member
Регистрация: 09.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
лепишь на форму Эдит, Лэйбл, Баттон, по нажатии кнопки пишешь код:
Код:
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:='Король чёрный'; |
09.03.2011, 19:12 | #9 (permalink) | |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Цитата:
Код:
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 | #10 (permalink) |
Sparkling
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
|
Да уж, я так сразу додуматься даже не могу буковки с буковками сложить
На 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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|