Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  test
Language: PASCAL
Code:
program test;

uses crt;

var
  q, w, e, r, t, y, u, i, o, p, a, s, d, f, g, h, j, k, l, z, x, c, v, b, n, m, m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11, m12, m13, m14, m15, m16: integer;

label 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43;
begin
  goto 43;
  1:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 22;
  2:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 23;
  3:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 24;
  4:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 25;
  5:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 26;
  6:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 27;
  7:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 28;
  8:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 29;
  9:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 30;
  10:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 31;
  11:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 32;
  12:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 33;
  13:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 34;
  14:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 35;
  15:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 36;
  16:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 37;
  17:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 38;
  18:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 39;
  19:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 40;
  20:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 41;
  21:
  writeln('Вы ввели неправильное число');
  writeln('Вводите число от 1 до 4');
  writeln('Повторите попытку');
  writeln('Нажмите Enter что бы продолжить');
  readln;
  goto 41;
  43:
  clrscr;
  writeln('Тест Шкала депрессии Бека:');
  writeln('Инструкция:');
  writeln('В этом опроснике содержатся группы утверждений.');
  writeln('Внимательно прочитайте каждую группу утверждений.');
  writeln('Затем определите в каждой группе одно утверждение, которое лучше всего соответствует тому, как Вы себя чувствовали НА ЭТОЙ НЕДЕЛЕ И СЕГОДНЯ.');
  writeln('Вводите цифру около утверждения. '); 
  writeln('Прежде чем сделать свой выбор, убедитесь, что Вы прочли Все утверждения в каждой группе.');
  writeln('Нажмите Enter если прочитали инструкцию');
  readln;
  22:
  clrscr;
  writeln('№1'); 
  writeln('1 Я не чувствую себя расстроенным, печальным.');
  writeln('2 Я расстроен. ');
  writeln('3 Я все время расстроен и не могу от этого отключиться.'); 
  writeln('4 Я настолько расстроен и несчастлив, что не могу это выдержать.');
  readln(q);
  if q = 0 then
    goto 1;
  if q > 4 then 
    goto 1;
  23:
  clrscr;
  writeln('№2 ');
  writeln('1 Я не тревожусь о своем будущем. ');
  writeln('2 Я чувствую, что озадачен будущим. ');
  writeln('3 Я чувствую, что меня ничего не ждет в будущем. ');
  writeln('4 Мое будущее безнадежно, и ничто не может измениться к лучшему.');
  readln(w);
  if w = 0 then
    goto 2;
  if w > 4 then 
    goto 2;
  24:
  clrscr;
  writeln('№3 ');
  writeln('1 Я не чувствую себя неудачником. ');
  writeln('2 Я чувствую, что терпел больше неудач, чем другие люди. ');
  writeln('3 Когда я оглядываюсь на свою жизнь, я вижу в ней много неудач. ');
  writeln('4 Я чувствую, что как личность я - полный неудачник. ');
  readln(e);
  if e = 0 then
    goto 3;
  if e > 4 then 
    goto 3;
  25:
  clrscr;
  writeln('№4 ');
  writeln('1 Я получаю столько же удовлетворения от жизни, как раньше. ');
  writeln('2 Я не получаю столько же удовлетворения от жизни, как раньше. ');
  writeln('3 Я больше не получаю удовлетворения ни от чего. ');
  writeln('4 Я полностью не удовлетворен жизнью и мне все надоело. ');
  readln(r);
  if r = 0 then
    goto 4;
  if r > 4 then 
    goto 4;
  26:
  clrscr;     
  writeln('№5 ');
  writeln('1 Я не чувствую себя в чем-нибудь виноватым. ');
  writeln('2 Достаточно часто я чувствую себя виноватым. ');
  writeln('3 Большую часть времени я чувствую себя виноватым. ');
  writeln('4 Я постоянно испытываю чувство вины. ');
  readln(t); 
  if t = 0 then
    goto 5;
  if t > 4 then 
    goto 5;
  27:
  clrscr;
  writeln('№6 ');
  writeln('1 Я не чувствую, что могу быть наказанным за что-либо. ');
  writeln('2 Я чувствую, что могу быть наказан. ');
  writeln('3 Я ожидаю, что могу быть наказан. ');
  writeln('4 Я чувствую себя уже наказанным. ');
  readln(y);
  if y = 0 then
    goto 6;
  if y > 4 then 
    goto 6;
  28:
  clrscr;
  writeln('№7 ');
  writeln('1 Я не разочаровался в себе. ');
  writeln('2 Я разочаровался в себе. ');
  writeln('3 Я себе противен. ');
  writeln('4 Я себя ненавижу. ');
  readln(u);
  if u = 0 then
    goto 7;
  if u > 4 then 
    goto 7;
  29:
  clrscr;
  writeln('№8 ');
  writeln('1 Я знаю, что я не хуже других. ');
  writeln('2 Я критикую себя за ошибки и слабости. ');
  writeln('3 Я все время обвиняю себя за свои поступки. ');
  writeln('4 Я виню себя во всем плохом, что происходит. ');
  readln(i); 
  if i = 0 then
    goto 8;
  if i > 4 then 
    goto 8;
  30:
  clrscr;
  writeln('№9 ');
  writeln('1 Я никогда не думал покончить с собой. ');
  writeln('2 Ко мне приходят мысли покончить с собой, но я не буду их осуществлять. ');
  writeln('3 Я хотел бы покончить с собой. ');
  writeln('4 Я бы убил себя, если бы представился случай. ');
  readln(o); 
  if o = 0 then
    goto 9;
  if o > 4 then 
    goto 9;
  31:
  clrscr;
  writeln('№10 ');
  writeln('1 Я плачу не больше, чем обычно. ');
  writeln('2 Сейчас я плачу чаще, чем раньше. ');
  writeln('3 Теперь я все время плачу. ');
  writeln('4 Раньше я мог плакать, а сейчас не могу, даже если мне хочется. ');
  readln(p); 
  if p = 0 then
    goto 10;
  if p > 4 then 
    goto 10;
  32:
  clrscr;
  writeln('№11 ');
  writeln('1 Сейчас я раздражителен не более, чем обычно. ');
  writeln('2 Я более легко раздражаюсь, чем раньше. ');
  writeln('3 Теперь я постоянно чувствую, что раздражен. ');
  writeln('4 Я стал равнодушен к вещам, которые меня раньше раздражали. ');
  readln(a); 
  if a = 0 then
    goto 11;
  if a > 4 then 
    goto 11;
  33:
  clrscr;
  writeln('№12 ');
  writeln('1 Я не утратил интереса к другим людям. ');
  writeln('2 Я меньше интересуюсь другими людьми, чем раньше. ');
  writeln('3 Я почти потерял интерес к другим людям. ');
  writeln('4 Я полностью утратил интерес к другим людям. ');
  readln(s);
  if s = 0 then
    goto 12;
  if s > 4 then 
    goto 12;
  34:
  clrscr;
  writeln('№13 ');
  writeln('1 Я откладываю принятие решения иногда, как и раньше. ');
  writeln('2 Я чаще, чем раньше, откладываю принятие решения. ');
  writeln('3 Мне труднее принимать решения, чем раньше. ');
  writeln('4 Я больше не могу принимать решения. ');
  readln(d);
  if d = 0 then
    goto 13;
  if d > 4 then 
    goto 13;
  35:
  clrscr;
  writeln('№14 ');
  writeln('1 Я не чувствую, что выгляжу хуже, чем обычно. ');
  writeln('2 Меня тревожит, что я выгляжу старым и непривлекательным. ');
  writeln('3 Я знаю, что в моей внешности произошли существенные изменения, делающие меня непривлекательным. ');
  writeln('4 Я знаю, что выгляжу безобразно. ');
  readln(f);
  if f = 0 then
    goto 14;
  if f > 4 then 
    goto 14;
  36:
  clrscr;
  writeln('№15 ');
  writeln('1 Я могу работать так же хорошо, как и раньше. ');
  writeln('2 Мне необходимо сделать дополнительное усилие, чтобы начать делать что-нибудь. ');
  writeln('3 Я с трудом заставляю себя делать что-либо. ');
  writeln('4 Я совсем не могу выполнять никакую работу. ');
  readln(g);
  if g = 0 then
    goto 15;
  if g > 4 then 
    goto 15;
  37:
  clrscr;
  writeln('№16 ');
  writeln('1 Я сплю так же хорошо, как и раньше. ');
  writeln('2 Сейчас я сплю хуже, чем раньше. ');
  writeln('3 Я просыпаюсь на 1-2 часа раньше, и мне трудно заснуть опять. ');
  writeln('4 Я просыпаюсь на несколько часов раньше обычного и больше не могу заснуть. ');
  readln(h);
  if h = 0 then
    goto 16;
  if h > 4 then 
    goto 16;
  38:
  clrscr;
  writeln('№17 ');
  writeln('1 Я устаю не больше, чем обычно. ');
  writeln('2 Теперь я устаю быстрее, чем раньше. ');
  writeln('3 Я устаю почти от всего, что я делаю. ');
  writeln('4 Я не могу ничего делать из-за усталости. ');
  readln(j);
  if j = 0 then
    goto 17;
  if j > 4 then 
    goto 17;
  39:
  clrscr;
  writeln('№18 ');
  writeln('1 Мой аппетит не хуже, чем обычно. ');
  writeln('2 Мой аппетит стал хуже, чем раньше. ');
  writeln('3 Мой аппетит теперь значительно хуже. ');
  writeln('4 У меня вообще нет аппетита. ');
  readln(k);
  if k = 0 then
    goto 18;
  if k > 4 then 
    goto 18;
  40:
  clrscr;
  writeln('№19 ');
  writeln('1 В последнее время я не похудел или потеря веса была незначительной.'); 
  writeln('2 За последнее время я потерял более 2 кг. ');
  writeln('3 Я потерял более 5 кг. ');
  writeln('4 Я потерял более 7 кr.');
  readln(l);
  if l = 0 then
    goto 19;
  if l > 4 then 
    goto 19;
  41:
  clrscr;
  writeln('№20 ');
  writeln('1 Я беспокоюсь о своем здоровье не больше, чем обычно. ');
  writeln('2 Меня тревожат проблемы моего физического здоровья, такие, как боли, расстройство желудка, запоры и т.д. ');
  writeln('3 Я очень обеспокоен своим физическим состоянием, и мне трудно думать о чем-либо другом. ');
  writeln('4 Я настолько обеспокоен своим физическим состоянием, что больше ни о чем не могу думать. ');
  readln(z);
  if z = 0 then
    goto 20;
  if z > 4 then 
    goto 20;
  42:
  clrscr;
  writeln('№21 ');
  writeln('1 В последнее время я не замечал изменения своего интереса к близости. ');
  writeln('2 Меня меньше занимают проблемы близости, чем раньше. ');
  writeln('3 Сейчас я значительно меньше интересуюсь межполовыми отношениями, чем раньше. ');
  writeln('4 Я полностью утратил либидо интерес.');
  readln(x);
  if x = 0 then
    goto 21;
  if x > 4 then 
    goto 21;
  clrscr;
  begin
    q := q - 1;
    w := w - 1;
    e := e - 1;
    r := r - 1;
    t := t - 1;
    y := y - 1;
    u := u - 1;
    i := i - 1;
    o := o - 1;
    p := p - 1;
    a := a - 1;
    s := s - 1;
    d := d - 1;
    f := f - 1;
    g := g - 1;
    h := h - 1;
    j := j - 1;
    k := k - 1;
    l := l - 1;
    z := z - 1;
    x := x - 1;
    c := q + w;
    v := c + e;
    b := v + r;
    n := b + t;
    m := n + y;
    m1 := m + u;
    m2 := m1 + i;
    m3 := m2 + o;
    m4 := m3 + p;
    m5 := m4 + a;
    m6 := m5 + s;
    m7 := m6 + d;
    m8 := m7 + f;
    m9 := m8 + g;
    m10 := m9 + h;
    m11 := m10 + j;
    m12 := m11 + k;
    m13 := m12 + l;
    m14 := m13 + z;
    m15 := m14 + x;
    m16 := m15;
  end;
  if (m16 >= 0) and (m16 <= 9) then
  begin
    writeln('Вы набрали ', m16, ' баллов. Отсутствие депрессивных симпптомов'); 
  end;
  if (m16 >= 10) and (m16 <= 15) then
  begin
    writeln('Вы набрали ', m16, ' баллов. Легкая депрессия (субдепрессия)');
  end;
  if (m16 >= 16) and (m16 <= 19) then
  begin
    writeln('Вы набрали ', m16, ' баллов. Умеренная депрессия');
  end;
  if (m16 >= 20) and (m16 <= 29) then
  begin
    writeln('Вы набрали ', m16, ' баллов. Выраженная депрессия (средней тяжести)');
  end;
  if (m16 >= 30) and (m16 <= 63) then
  begin
    writeln('Вы набрали ', m16, ' баллов. Тяжёлая депрессия');
  end;
end.     
Comments: