Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 03.10.2011
Сообщений: 20
1

Определить, какими будут значения переменных p и d после выполнения операторов

09.10.2011, 12:16. Показов 1801. Ответов 2
Метки нет (Все метки)

1. Определить, какими будут значения переменных p и d после выполнения операторов.
Pascal
1
2
3
4
5
6
7
p:=true; d:=l; 
case k mod 10 of
3, 2,7, 5: d:=k; 
l:;
4,8:    begin p: = false; d: = 2 end;   ■
        9,6:   begin p:=false; d:=3 end 
end {of case}
если целая переменная k имеет следующее значение:
а) 6; б) 235; в) 71; г) 100


2.Дана последовательность из 20 целых чисел. Определить количество инверсий в этой последовательности (т. е. таких пар элементов, в которых большее число находится слева от меньшего: xi,>xj при i<j)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2011, 12:16
Ответы с готовыми решениями:

Определить, какие значения будут иметь переменные после выполнения операторов
type muz_center = record mosh: word; k_sd, k_dek: 1..10; massa: real; g_vip: 1995..2001; end; cd...

Какими будут значения переменных a и b после выполнения операторов
Решение задач 1. Дана последовательность операторов: a := 1; b := 1; while a + b &lt; 8 do Begin a...

Определите, какими будут значения переменных p и d после выполнения операторов
Определите, какими будут значения переменных p и d после выполнения операторов: p:=true; d:=1;...

Определите значения переменных р и d после выполнения операторов
если кто сможет,решите пожалуйста! Задача №1 Замените вложенный условный оператор оператором...

2
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
09.10.2011, 22:54 2
А можно условие привести в божеский вид, а то не понятно ни чего.

Добавлено через 6 часов 31 минуту
Pascal
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
Program prog1;
Var
  k,d:integer;
  p:boolean;
Begin
  writeln ('Введите k');
  Readln (k);
  p:=true;
 
  case k mod 10 of
   3,2,7,5:
    begin
     d:=k
    end;
   4,8:
    begin
     p:=false;
     d:=2
    end;
   9,6:
   begin
     p:=false;
     d:=3
  end;
  end;
  Writeln ('p = ',p);
  Writeln ('d = ' ,d);
End.
Зачем использовать вот этот символ l - я так и не понял, ибо вот эта строчка смысловой нагрузки вообще ни какой не несет.
Pascal
1
l:;
А так программа рабочая можете по ней проверить, ваши значения. Если объясните мне про символ этот странный до программу я доработаю. А пока, как есть, так есть.
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
10.10.2011, 09:40 3
Цитата Сообщение от VALIDOL4IK Посмотреть сообщение
ибо вот эта строчка смысловой нагрузки вообще ни какой не несет.
Вообще-то несет, это значит что при
Pascal
1
k mod 10
переменные не меняются.

Добавлено через 4 минуты
Нормальный вид
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
p:=true; d:=l;
case k mod 10 of
3, 2,7, 5: d:=k;
l:;
4,8: begin
      p: = false;
      d: = 2 end;
9,6: begin
      p:=false;
      d:=3
      end
end {of case}
Только нет условия
Pascal
1
k mod 10 = 0
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2011, 09:40

Укажите значения, которые будут содержаться в переменных после выполнения следующих программных фрагментов
Укажите значения которые будут содержаться в переменных после выполнения следующих программных...

Определить значения переменных после выполнения программы
. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже...

Определить, сколько элементов массива будут иметь значения больше 10 после выполнения программы
Значения элементов двумерного массива А размером 5x5 задаются с помощью вложенного цикла в...

Определить, сколько элементов массива A будут принимать четные значения после выполнения программы
Защита скоро помогите )) Элементы двухмерного массива A размером 99 задаются с помощью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru