1) Составьте прграмму,в...

Тема в разделе "Информатика", создана пользователем Variantion, 8 янв 2010.

  1. Variantion

    Variantion New Member

    1) Составьте прграмму,в которой определялось бы является ли введеный символ гласной или согласной буквой латинского алфавита. 2) Составьтепрограмму-меню,выводящую расписание уроков в 1 из 3-ёх дней недели. 3) Напишите программу,которая анализирует человека по возрасту и относит к одной из четырёх групп: дошкольник,ученик,работник,пенсионер. *Паскаль. Заранее спасибо*
     
  2. FFRiman

    FFRiman New Member

     2)
    var i:integer;
    begin
    writeln('Введите цифру означающюю день недели, например 2-вторник');
    readln(i);
    case i of
    1:writeln('Понедельник: Алгебра,Геометрия,Русский,Физ-ра');
    2:writeln('Вторник Информатика,История,Изо');
    3:writeln('Среда,Английский,Искусство');
    else writeln('ERROR');
    readln;
    end;
    3)
    var a:integer;
    begin
    writeln('Введите ваш возраст');
    readln(a);
    if (a<7) then writeln('Дошкольник') else
    if (a>7) and (a<18) writeln('Ученик') else
    if (a>18) and (a<60) writeln('Рабтник') else
    if (a>65) writeln('Пенсионер');
    readln;
    end.
     
     
     
     
     
     
     
     
     
     

     
     
     
     
     
     
     
     

Поделиться этой страницей

Наша группа