Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
boxer_001
1 / 1 / 0
Регистрация: 05.11.2010
Сообщений: 9
1

Определить порядковый номер самого быстрого автомобиля

15.11.2010, 20:57. Просмотров 955. Ответов 5
Метки нет (Все метки)

В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей.
Определить порядковый номер самого быстрого автомобиля.Если таких автомобилей несколько,то должен быть найден номер:
a) первого из них;
б) последнего из них.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2010, 20:57
Ответы с готовыми решениями:

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

Определить порядковый номер наименьшего из них
Дана непустая последовательность различных чисел. Определить порядковый номер...

Определить порядковый номер элемента последовательности
Всем привет! помогите пожалуйста срочно решить задачи №2. Определить...

Определить порядковый номер 1-го положительного элемента массива А
Код program massiv; uses crt; const n=50; type t=array of integer; var...

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

5
Alex1OPS
101 / 100 / 36
Регистрация: 14.09.2010
Сообщений: 223
15.11.2010, 22:04 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
28
29
30
Program NF;
uses Crt;
const N=5;
var a:array [1..N] of word;
    imax,max,fimax,i:word;
 
begin
RANDOMIZE;
        clrscr;
        for i:=1 to N do readln(a[i]);
        for i:=1 to N do write(a[i]:5);
        max:=a[1]; imax:=1;
        for i:=1 to N do
        begin
                if (a[i]>=max) then
                begin
                    max:=a[i];
                    imax:=i;
                end;
        end;
        for i:=1 to 40 do
                if (a[i]=max) then
                begin
                fimax:=i;
                break;
                end;
        writeln('Первая встреченная машина с макс скоростью и ее номер=',fimax);
        writeln('Номер последней машины с макс скоростью=',imax);
readln;
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
28
29
30
31
32
33
Program NF;
uses Crt;
const N=40;
var a:array [1..N] of word;
    imax,max,fimax,i:word;
 
begin
RANDOMIZE;
        clrscr;
        for i:=1 to N do readln(a[i]);
        max:=a[1]; imax:=1;
        for i:=1 to N do
        begin
                if (a[i]>=max) then
                begin
                    max:=a[i];
                    imax:=i;
                end;
        end;
        for i:=1 to 40 do
                if (a[i]=max) then
                begin
                fimax:=i;
                break;
                end;
         if (fimax=max) then writeln('Номер машины с максимальной скоростью=',imax)
         else
        begin
        writeln('Первая встреченная машина с макс скоростью и ее номер=',fimax);
        writeln('Номер последней машины с макс скоростью=',imax);
        end;
readln;
end.
Добавлено через 1 минуту
вместо
Pascal
1
if (fimax=max) then writeln('Номер машины с максимальной скоростью=',imax)
надо
Pascal
1
if (fimax=imax) then writeln('Номер машины с максимальной скоростью=',imax)

Извините,торопился
0
sheoz
0 / 0 / 0
Регистрация: 15.01.2016
Сообщений: 8
15.01.2016, 19:23 3
(В языке С++ тоже решайте пожалуста.....................
0
Dialkord228
5 / 5 / 4
Регистрация: 30.11.2015
Сообщений: 106
Завершенные тесты: 1
15.01.2016, 23:34 4
sheoz,
C++
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
35
36
37
38
39
40
#include <iostream>
#include <time.h>
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "rus");
    int imax, max, fimax;
    const int size = 40;
    int matrix[size];
    srand(time(NULL));
    // заполнение матрицы ГСЧ
    for (int i = 0; i < size; i++)
        matrix[i] = 1 + rand() % 400;
        for (int i = 0; i < size; i++)
            cout << matrix[i] << " ";
        cout << endl;
        max = matrix[1]; imax = 1;
        for (int i = 0; i < size; i++)
        {
            if (matrix[i] >= max)
            {
                max = matrix[i];
                imax = i;
            }
        }
        for (int i = 1; i < 40; i++)
            if (matrix[i] = max)
            {
                fimax = i;
            }
        if (fimax = imax)
            cout << "Номер машины с максимальной скоростью= " << imax << endl;
        else
        {
            cout << "Первая встреченная машина с макс скоростью и ее номер= " << fimax << endl;
            cout << "Номер последней машины с макс скоростью= " << imax << endl;
        }
    system("pause");
}
1
sheoz
0 / 0 / 0
Регистрация: 15.01.2016
Сообщений: 8
16.01.2016, 18:10 5
почему ошибка 40-54-58-65 строки
0
Dialkord228
5 / 5 / 4
Регистрация: 30.11.2015
Сообщений: 106
Завершенные тесты: 1
16.01.2016, 18:14 6
sheoz, это вы мне?
0
16.01.2016, 18:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2016, 18:14

Определить порядковый номер максимальной цифры ряда
задача:решить через for:дан ряд натуральных чисел,в котором все цифры различны...

Определить максимальный элемент массива и его порядковый номер
Определить максимальный элемент массива В(50) и его порядковый номер.

Алгоритм ( Определить максимальный элемент массива и его порядковый номер)
Помогите пожалуйста!Ввести с клавиатуры массив B2 . Определить максимальный...


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

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

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