Паскаль, задача помогите плз!!!! 1 курс

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by swimper, 25 Nov 2012.

  1. swimper

    swimper New Member

    Joined:
    25 Nov 2012
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    В общем девушке 1 курс в универе задачу задали, я в
    этом вообще мало шарю, помогите решить:

    http://cs302813.userapi.com/v302813077/65f6/HrzeTgouFzQ.jpg

    "Задание 8.12"

    Спасибо большое всем кто хоть попробует!
     
  2. Gigabajt_

    Gigabajt_ Member

    Joined:
    13 Feb 2010
    Messages:
    80
    Likes Received:
    5
    Reputations:
    0
    мы такое в классе 7ом решали :rolleyes:
     
  3. swimper

    swimper New Member

    Joined:
    25 Nov 2012
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Это замечательно конечно, но нужно решение)
     
  4. od1n0chka

    od1n0chka Member

    Joined:
    13 Dec 2010
    Messages:
    297
    Likes Received:
    47
    Reputations:
    1
    если я прально понял то
    PHP:
    DEL-0
    DC1
    -1
    DC2
    -2
    DC3
    -3
    DC4
    -4
    NAK
    -5
    SYN
    -6
    ETB
    -7
    CAN
    -8
    EM
    -9
    тогда вот код
    PHP:
    program Project2;

    {
    $APPTYPE CONSOLE}

    uses
      SysUtils
    ;
     var 
    string;
     
    b:integer;
    begin
    write
    ('vvedite chislo= ');
    readln(a);
    if 
    a='DEL' then
    b
    :=0;
    //
    if a='DC1' then
    b
    :=1;
    //
    if a='DC2' then
    b
    :=2;
    //
    if a='DC3' then
    b
    :=1;
    //
    if a='DC4' then
    b
    :=1;
    //
    if a='NAK' then
    b
    :=5;
    //
    if a='SYN' then
    b
    :=6;
    //
    if a='ETB' then
    b
    :=7;
    //
    if a='CAN' then
    b
    :=8;
    //
    if a='EM' then
    b
    :=9;
    write('vveli:=');
    writeln(b);
    write('press to enter...');
    readln;
    end.

     
Loading...