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

Операторы цикла

27.11.2016, 15:16. Просмотров 790. Ответов 3
Метки нет (Все метки)

1-дано N вещественных чисел. Найти максимальное число и его номер.
2-Дано N вещественных чисел. Вычислить разность между максимальным и минимальным из них.
Я тут набросал программу, но не знаю. Правильно или нет.
1 программа.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i,n:integer; 
a,max,nmax:real; 
begin 
write('n='); 
read(n); 
writeln('Введите ',n,' целых чисел:'); 
read(a); 
max:=a; 
nmax:=1; 
for i:=2 to n do 
begin 
read(a); 
if a>=max then 
begin 
max:=a; 
nmax:=i; 
end; 
end; 
writeln('Максимальный =',max,' его номер=',nmax); 
end.
2 программа.
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
var n,i:integer; 
a,min,max,nmin,nmax:real; 
begin 
write('n='); 
read(n); 
writeln('Введите ',n,' целых чисел:'); 
read(a); 
min:=a; 
max:=a; 
nmin:=1; 
nmax:=1; 
for i:=2 to n do 
begin 
read(a); 
if a<min then 
begin 
min:=a; 
nmin:=i; 
end; 
if a>=max then 
begin 
max:=a; 
nmax:=i; 
end; 
end; 
writeln(max-min); 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2016, 15:16
Ответы с готовыми решениями:

Операторы цикла.2 программы
помогите пожалуйста сделать А и Б:)

Операторы цикла FOR, WHILE, REPEAT
Заранее спасибо за помощь..)

Задача (операторы цикла)
Для целого числа К от 1 до 99 написать фразу &quot;мне К лет&quot; , учитывая при этом,...

ОПЕРАТОРЫ ЦИКЛА С УСЛОВИЕМ
Здравствуйте. 6.27. Известно количество очков, набранных каждой из 20 команд...

Операторы цикла: Вычислить 1*2 + 2*3*4 +... + п *... * 2п
Помогите разобраться Пусть дано натуральное число п. Вычислите: 1*2 + 2*3*4...

3
Puporev
Модератор
54693 / 42108 / 29075
Регистрация: 18.05.2008
Сообщений: 99,368
27.11.2016, 15:35 2
Лучший ответ Сообщение было отмечено Apocalypset как решение

Решение

Во второй не нужно искать номера. А так все верно, только код не оформлен нормально, нет отступов, трудно читать.
И код нужно обрамлять тегами.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3904 / 2561 / 2085
Регистрация: 22.11.2013
Сообщений: 7,160
27.11.2016, 17:56 3
Лучший ответ Сообщение было отмечено Apocalypset как решение

Решение

В первой вместо
Pascal
7
8
  read(a);
  max:=a;
достаточно
Pascal
7
  read(max);
Добавлено через 4 минуты
Для целых возможен другой подход:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n, t, max, nmax: Integer; 
begin 
  Write('n='); Read(n); nmax:=1; max:=-MaxInt-1;
  WriteLn('Введите ',n,' целых чисел:'); 
  for n:=1 to n do begin 
    Read(t); 
    if t>max then begin 
      max:=t; nmax:=n; 
    end; 
  end; 
  WriteLn('Максимальный = ',max,', его номер = ',nmax); 
end.
Добавлено через 1 минуту
Если у вас по условию числа целые, незачем объявлять их действительными.
Если действительные, то в приглашении ввода не стоит писать про целые.
В любом случае, порядковый номер целый, не действительный.

Добавлено через 6 минут
То есть, в первой
Pascal
1
2
3
var
  i,n,nmax:integer; 
  a,max:real;
во второй, если оставлять индексы,
Pascal
1
2
3
var
  n,i,nmin,nmax:integer; 
  a,min,max:real;
1
Apocalypset
0 / 0 / 0
Регистрация: 01.10.2016
Сообщений: 9
28.11.2016, 15:36  [ТС] 4
Большое Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2016, 15:36

Операторы цикла: Вывести 1+А+А2+А3+...+AN
Помогите: Дано вещественное число А и целое число N(&gt;0). Вывести...

Операторы цикла с параметром
Найти: а) среднее арифметическое всех целых чисел от 1 до 1000 б) среднее...

Операторы цикла итереационного типа
Задача 1. Дано натуральное число: а) верно ли, что сумма его цифр меньше А...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru