Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Закрытая тема
 
Опции темы Опции просмотра
Старый 08.03.2011, 23:25   #1 (permalink)
parsukov_d
Member
 
Регистрация: 12.02.2011
Сообщений: 48
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -71
Exclamation Помогите решить задачи на Паскаль

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

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

помогите кто может сам паскале сильно туплю
parsukov_d вне форума  

Старый 08.03.2011, 23:25
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно, что данные темы уже обсуждаются

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

Старый 08.03.2011, 23:55   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Ничего сложного. В первой задаче берете первый символ, и оператором case определяете фигуру, затем по второму символу так же определяете цвет. Конкатенируем строки и выводим ответ.
Во второй - домик рисуется псевдографикой (символами) или графикой - линиями, окружностями, прямоугольниками?
MrSTEP вне форума  
Старый 09.03.2011, 09:46   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от MrSTEP Посмотреть сообщение
Ничего сложного. В первой задаче берете первый символ, и оператором case определяете фигуру, затем по второму символу так же определяете цвет. Конкатенируем строки и выводим ответ.
Во второй - домик рисуется псевдографикой (символами) или графикой - линиями, окружностями, прямоугольниками?
И еще - если нужно использовать графику, то какой Паскаль: АВС или Borland? Потому что там существенно разная графика.
Vladimir_S вне форума  
Старый 09.03.2011, 17:41   #4 (permalink)
Hakmax
Member
 
Регистрация: 09.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Канвасом на форме домики и чёрте что ещё можно нарисовать..
Hakmax вне форума  
Старый 09.03.2011, 17:46   #5 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 09.03.2011, 17:47   #6 (permalink)
parsukov_d
Member
 
Регистрация: 12.02.2011
Сообщений: 48
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -71
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
И еще - если нужно использовать графику, то какой Паскаль: АВС или Borland? Потому что там существенно разная графика.
Borland
parsukov_d вне форума  
Старый 09.03.2011, 17:56   #7 (permalink)
parsukov_d
Member
 
Регистрация: 12.02.2011
Сообщений: 48
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -71
По умолчанию

прошу вас всех помочь мне пока что,
в 1 задаче
объясните немного подробно очень я его плохо понимаю (этот паскаль)
parsukov_d вне форума  
Старый 09.03.2011, 18:28   #8 (permalink)
Hakmax
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:='Король чёрный';
кстати case и строки не совместимы..а то кто-то там хотел с кейсом..
Hakmax вне форума  
Старый 09.03.2011, 19:12   #9 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Цитата:
стати 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) с чего вы взяли, что нужна программа в делфи? Автор трижды сказал о паскале, а затем в теме это повторили еще несколько раз.
MrSTEP вне форума  
Старый 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
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.