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

[parsukov_d]

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

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

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

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

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

 

[MrSTEP]

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

 

[Vladimir_S]

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

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

 

[Hakmax]

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

 

[kreol]

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

 

[parsukov_d]

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

Borland

 

[parsukov_d]

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

 

[Hakmax]

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

 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]

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

 

[Хелен]

Да уж, я так сразу додуматься даже не могу буковки с буковками сложить :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.

 

[MrSTEP]

А чем мой вариант не устроил?

 

[Хелен]

Я предложила вариант с кейсом, он конечно более длинный, но возможный.

 

[MrSTEP]

Так и я изначально предложил вариант с кейсом, только более соответствующий заданию, чем ваш - вы работаете с цифрами вместо букв. В этом единственная загвоздка

 

[Vladimir_S]

Ладно уж, нарисовал полное решение задачки, хоть терпеть не могу возиться с кириллицей:

VAR
 Code:String[2];
 Name:String;
 b:boolean;

Procedure No_figure;
begin
 WriteLn('Такой фигуры нет!');
 b:=false;
end;

BEGIN
 REPEAT
  Write('Введите название и цвет фигуры ("11" для выхода из программы): ');
  ReadLn(Code);
  b:=true;
  If Code<>'11' then
   begin
    Case Code[1] of
     'п': Case Code[2] of
           'б': Name:='белая пешка';
           'ч': Name:='черная пешка';
           else No_figure;
          end;
     'с': Case Code[2] of
           'б': Name:='белый слон';
           'ч': Name:='черный слон';
           else No_figure;
          end;
     'л': Case Code[2] of
           'б': Name:='белая ладья';
           'ч': Name:='черная ладья';
           else No_figure;
          end;
     'ф': Case Code[2] of
           'б': Name:='белый ферзь';
           'ч': Name:='черный ферзь';
          end;
     'к': Case Code[2] of
           'б': Name:='белый конь';
           'ч': Name:='черный конь';
           else No_figure;
          end;
     'К': Case Code[2] of
           'б': Name:='белый король';
           'ч': Name:='черный король';
           else No_figure;
          end;
      else No_figure;
    end;
    If b then WriteLn('Это '+Name);
   end;
 UNTIL Code='11';
END.

 

[Deimos]

Помогите, пожалуйста, с задачей!!!:

Сформировать массивы S1 и S2 вещественного типа, размерностью 10 и 14 соответственно и сохранить значения этих элементов в файлах. Считать данные из файлов, отсортировать по возрастанию.
[mod2]Deimos - Вам объяснить популярно? Или сразу меры принимать? Хорошо, попробую.
1. Здесь не принято лезть в чужие темы со своими топиками. Тем более, не связанными с исходной темой.
2. Поэтому Ваш запрос был перенесен в специально созданную новую тему: http://www.tehnari.ru/f43/t50535/
3. Все вопросы и ответы - пожалуйста туда.
4. Эта тема ЗАКРЫТА.
5. При следующей попытке влезания в чужие темы будете наказаны.
Модератор.[/mod2]