Нужна помощь с информатикой - ФОРУМ ПОСТУПИМ.РУ
Главная
Поиск репетитора
Коллективный блог
публикаций
Форум (обсуждаем ЕГЭ 2020)
тем и сообщений
Для учебы




Войти
или
Зарегистрироваться
Лайфхак для парней: как добавить 💰 своей девушке?
VisitTime
Находка для тех, чьи девушки и супруги работают в сфере услуг: маникюр, брови, ресницы и так далее...
🤔 Вы же наверняка задумывались, как помочь своей половинке зарабатывать больше? Но что делать, если во всех этих маркетингах и процедурах не разбираешься от слова «совсем»? Мы нашли выход — это сервис VisitTime
Чат-бот для мастеров и специалистов, который упрощает ведение записей:
— Сам записывает клиентов и напоминает им о визите
— Персонализирует скидки, чаевые, кешбек и предоплаты
— Увеличивает доходимость и помогает больше зарабатывать
А еще там первый месяц бесплатно, поэтому лучшее, что вы можете сделать сейчас — установить или показать его своей принцессе Всё интуитивно понятно и просто, достаточно нажать на этот текст и запустить чат-бота
Новые сообщения · Участники · Правила форума · Поиск по форуму · RSS
  • Страница 1 из 1
  • 1
ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » Нужна помощь с информатикой
Нужна помощь с информатикой
NBДата: Четверг, 2010-05-06, 9:32 PM | Сообщение # 1
Абитуриент
Группа: Пользователи
Сообщений: 18
Репутация: 1
Награды: 0
Замечания: 0%
Статус: Offline
Город: Somewhere over the rainbow
Program Kr_2_3;
Const NMax = 100;
Type LinMass = Array[1..NMax] Of Integer;
Var A : LinMass; N, I, M : Integer;
Begin
Write('Количество элементов массива? '); ReadLn(N);
M := -32768;
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[I]);
If A[I] > M Then M := A[I]
End;
For I := 1 To N Do A[I] := A[I] + M;
For I := 1 To N Do Write(A[I] : 6);
WriteLn
End.

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

Помогите, пожалуйста, буду благодарна

 
RootДата: Четверг, 2010-05-06, 11:25 PM | Сообщение # 2
Академик
Группа: Проверенные
Сообщений: 1117
Репутация: 587
Награды: 68
Замечания: 0%
Статус: Offline
Не знаю, правильно я понял или нет, но все же:

Исходные данные:
M = -32768;

Промежуточные данные:
N = 10;
A[1] = 1; A[2] = 2; A[3] = 3; A[4] = 4; A[5] = 5; A[6] = 6; A[7] = 7; A[8] = 8; A[9] = 9; A[10] = 10;

Результат работы:
A[1] = 11; A[2] = 12; A[3] = 13; A[4] = 14; A[5] = 15; A[6] = 16; A[7] = 17; A[8] = 18; A[9] = 19; A[10] = 20;

И в конце программы вроде как должен быть ReadLn, а не WriteLn.

2009г.: 175
2010г.:
Русский язык 63 :sad:
Математика 79 Нормалды, но могло быть и лучше
Информатика и ИКТ 84 В печали :sad:

Рекомендован на АВТФ НГТУ

 
incoverДата: Четверг, 2010-05-06, 11:54 PM | Сообщение # 3
Нобелевский лауреат
Группа: Проверенные
Сообщений: 3033
Репутация: 731
Награды: 101
Замечания: 100%
Статус: Offline
Город: Pacha|Ibiza
Root, Writeln нужен чтоб подтереть саплю, чтоб в конце строки невисело
 
RootДата: Пятница, 2010-05-07, 11:17 AM | Сообщение # 4
Академик
Группа: Проверенные
Сообщений: 1117
Репутация: 587
Награды: 68
Замечания: 0%
Статус: Offline
incover
Не подумал smile
2009г.: 175
2010г.:
Русский язык 63 :sad:
Математика 79 Нормалды, но могло быть и лучше
Информатика и ИКТ 84 В печали :sad:

Рекомендован на АВТФ НГТУ

 
ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » Нужна помощь с информатикой
  • Страница 1 из 1
  • 1
Поиск:








© 2006 - 2023 Поступим.ру Информация:
О проекте
Контакты
Регистрация на сайте
Статистика сообщества
Пользовательское соглашение 		Разделы:
Поиск репетитора
Форум сообщества
Коллективный блог
Материалы для учебы
ЕГЭ 2021 		RSS:
RSS форума
RSS блога