Даны b1,...b10; d1, ... d7; A. Вычислите:

@bogeal · Регистрация: 17.01.2010

Студворк — интернет-сервис помощи студентам

Ребята, помогите пожалуйста с массивами.

@Тамила · 20.01.2010, 16:20

Проверьте, что у вас в числителе под знаком суммы... b[1]-A или b[i]-A

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
29
30
31
32
33
34
uses crt;
var
b:array[1..10]of integer;
d:array[1..7]of integer;
a,i,j,sum,pr:integer;
n:array[1..10]of real;
begin clrscr;
for i:=1 to 10 do
 begin
  write('b[',i,']=');
  read(b[i]);
 end;
writeln;
for j:=1 to 7 do
 begin
  write('d[',j,']=');
  read(d[j]);
 end;
writeln;
write('A=');
read(a);
sum:=0;
for i:=1 to 10 do
sum:=sum+(b[i]-a);
pr:=1;
for j:=1 to 7 do
pr:=pr*d[j];
for i:=1 to 10 do
 begin
  n[i]:=(sum/pr)*b[i];
  writeln('n[',i,']=',n[i]:5:4);
 end;
readkey;
end.

@bogeal · 20.01.2010, 16:25 **[ТС]**

В числителе у меня Б[i] да. спасибо.

А вы не могли бы подсказать, что значит "uses crt"?

@Тамила · 20.01.2010, 16:28

Сообщение от bogeal

А вы не могли бы подсказать, что значит "uses crt"?

один из модулей Pascal, необходимый для clrscr; и readkey;

@bogeal · 20.01.2010, 17:04 **[ТС]**

а что такое clrscr и readkey в программе? просто мы этого еще не проходили.

@Inadequate · 20.01.2010, 17:15

bogeal, неужели так трудно посмотреть в хэлпе?!

Сообщение от F1

function ReadKey: char;
Читает символ из буфера клавиатуры.
procedure ClrScr;
Очищает цветом фона все текстовое окно или текущее окно, установленное процедурой window. Устанавливает курсор в левый верхний угол очищенного окна

@WolfCF · 20.01.2010, 17:15

clrscr- оператор очищения экрана
readkey-считывает ключ до нажатия любой клавиши.

uses crt; clrscr;readkey-удалите тогда,раз не знаете. вместо readkey напишите readln;

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@bogeal 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 10

	Даны b1,...b10; d1, ... d7; A. Вычислите: 20.01.2010, 15:18. Показов 2012. Ответов 6 Метки нет (Все метки) Ребята, помогите пожалуйста с массивами. Миниатюры 0

@bogeal 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 10
	20.01.2010, 16:25 [ТС]
	В числителе у меня Б[i] да. спасибо. А вы не могли бы подсказать, что значит "uses crt"? 0

@bogeal 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 10
	20.01.2010, 17:04 [ТС]
	а что такое clrscr и readkey в программе? просто мы этого еще не проходили. 0

@WolfCF 3318 / 1380 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	20.01.2010, 17:15
	clrscr- оператор очищения экрана readkey-считывает ключ до нажатия любой клавиши. uses crt; clrscr;readkey-удалите тогда,раз не знаете. вместо readkey напишите readln; 1