sakalrip
?>

Нарисуйте триде машинку в паскале

Информатика

Ответы

mstrshulz

ответ

uses

  graphabc;

begin

  setwindowwidth(800);                                         //ширина окна

  setwindowheight(600);                                       //высота окна

  setpenwidth(3);

  roundrect(200, 300, 600, 350, 20, 20);                       //кузов машины

  floodfill(400, 320, clnavy);

  circle(290, 350, 30);                                       //переднее колесо

  floodfill(300, 360, clblack);

  circle(510, 350, 30);                                       //заднее колесо

  floodfill(520, 360, clblack);

 

  begin

    setpenwidth(3);

    line(300, 300, 340, 250);

    line(340, 250, 470, 250);

    line(470, 250, 510, 300);

    line(405, 250, 405, 350);

    line(510, 300, 510, 320);

    line(300, 300, 300, 320);

    line(380, 310, 390, 310);

    line(480, 310, 490, 310);

    line(300, 300, 510, 300);

   

  end;

  begin

    setpencolor(clgray);                                   //цвет кисти

    setpenwidth(15);                                       //размер кисти

    circle(510, 350, 10);                                 //заднее колесо

    circle(290, 350, 10);                                 //переднее колесо

   

  end;

  begin

    setpenwidth(3);

    setpencolor(clyellow);

    circle(100, 100, 30);

    floodfill(110, 110, clyellow);

    line(140, 120, 200, 150);

    line(130, 135, 150, 160);

    line(120, 140, 140, 190);

    line(105, 145, 110, 170);

    line(95, 145, 90, 190);

  end;

  begin

  setpenwidth(20);

  setpencolor(clgreen);

  line(0, 385, 800, 385);

  setpenwidth(3);

    setpencolor(clolive);

    rectangle(0, 385, 800, 600);

    floodfill(110, 390, clolive);

  end;

объяснение:

zakup-r51
1) F=Av(¬A&B)
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB

2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B

3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B

4) F =(1v(AvB))v((AC)&1) 
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1
nikv568734
#include <iostream>

using namespace std;

int main() {
    int n;
    cout << "Ââåäèòå êîëè÷åñòîâ äîìîâ: ";
    cin >> n;
    cout << endl;
    cout << "Ââåäèòå êîëè÷åñòâî æèòåëåé â êàæäîì  äîìå: ";
    int chet = 0, nechet = 0;
    for (int i = 0; i < n; i++)
    {
        int x;
        cin >> x;
        if (i % 2 == 0)
           chet += x;
        else
            nechet += x;
    }
    cout << endl;
    if (chet == nechet)
       cout << "Ðàâíîå êîëè÷åñòâî æèòåëåé íà îáåèõ ñòîðîíàõ óëèöû." << endl;
    else
        if (chet > nechet)
           cout << "Áîëüøå æèòåëåé íà ÷åòíîé ñòîðîíå óëèöû." << endl;
        else
            cout << "Áîëüøå æèòåëåé íà íå÷åòíîé ñòîðîíå óëèöû." << endl;
    system("pause");
    return 0;
}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нарисуйте триде машинку в паскале
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

innavinogradova1385
rechkai64
alexeylipatov
papanovar
panstel
salesrawtogo
KIRILLSHURYGIN98
evlampin
denisrogachv
alexandr25901
peresvetoff100015
Щербаков33
koochma
lenskiy
MISAKOVNA49