Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 43
1

Выяснить, что получится в результате выполнения программы

14.11.2012, 13:01. Показов 2026. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Опишите, что получится в результате выполнения программы?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program Variant3; Const n=17;
Var B: Array[1..n] Of Integer;
         i: Byte; p : Integer;
Begin 
p:=0;
For i:=1 To n Do 
           Begin 
B[i]:=-35+Random(121);
 If C[i] Mod 10=0 Then p:=p+1;
 End;
Writeln(p); 
End.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2012, 13:01
Ответы с готовыми решениями:

Что получится в результате выполнения программы?
Что получится в результате выполнения программы? Program Variant2; Const n=10; Type...

Определить, какая числовая последовательность получится в результате выполнения 3 итерации во внутреннем цикле
1. Какая числовая последовательность получится в результате выполнения 3 итерации во внутреннем...

Матрица и циклы: Что будет выведено на экран, в результате выполнения программы?
Здравствуйте. Подскажите, пожвлуйста, мне в чем я не прав. Задание заключается в следующем: Что...

Алгоритм и алгоритмизация: Определите, что будет напечатано в результате выполнения фрагмента программы
Помогитее решить Определите, что будет напечатано в результате выполнения фрагмента программы: ar...

3
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
14.11.2012, 13:25 2
Цитата Сообщение от Indigo74 Посмотреть сообщение
Опишите, что получится в результате выполнения программы
ничего, программа просто не запустится, вылетит ошибка
1
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 43
14.11.2012, 13:28  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program Variant3; Const n=17;
Var B: Array[1..n] Of Integer;
C: Array[1..n] Of Integer;
         i: Byte; p : Integer;
Begin
p:=0;
For i:=1 To n Do
           Begin
B[i]:=-35+Random(121);
 If C[i] Mod 10=0 Then p:=p+1;
 End;
Writeln(p);
End.
а если так?
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
14.11.2012, 13:42 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Если в 9-й строке не C[i] , а B[i], и программа выглядит так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Variant3; 
 
const
  n = 17;
 
var
  B: Array[1..n] Of Integer;
  i: Byte; p: Integer;
 
begin
  p := 0;
  for i := 1 To n Do 
  begin
    B[i] := -35 + Random(121);
    if B[i] Mod 10 = 0 Then p := p + 1;
  end;
  Writeln(p); 
end.
то она выводит количество элементов, заканчивающихся нулем
ключевая строчка эта
Pascal
1
if B[i] Mod 10 = 0 Then p := p + 1;
1
14.11.2012, 13:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2012, 13:42
Помогаю со студенческими работами здесь

Определить, что будет напечатано в результате выполнения программы
var s, k; integer; begin s:=40 for k:=1 to 7 do s:=s-3 write(s); end.

Что будет напечатано на экране в результате выполнения программы?
помогите пожалуйста .что будет напечатано на экране в результате выполнения программы ? так же...

Что будет напечатано в результате выполнения следующего фрагмента программы?
x := -3.1; y := 1; If (x < 0) And (y < 0) Then begin x := -x; y := -y; end Else If Not ((x...

Укажите, что будет напечатано в результате выполнения следующей программы
Укажите, что будет напечатано в результате выполнения следующей программы: Var a:array of integer;...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru