Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Роман)
1 / 1 / 1
Регистрация: 21.11.2011
Сообщений: 38
#1

Одномерный массив. Поиск элементов с заданными свойствами

21.05.2012, 21:17. Просмотров 404. Ответов 3
Метки нет (Все метки)

Даны массивы:
HD1...HD10 - шифры дорог;
k1... k10 - категории дорог;
S1...S2 - протяженность дорог;
V1...V2 - средние скорости на дорогах;
Напечатать 2 списка:
1)Список дорог 1-й категории с протяженностью более 100 км и скоростью > 60 км/ч.Список дорог 3-й категории с протяженностью < 200 км и средней скоростью > 40 км/ч.


Заранее спасибо.

Добавлено через 2 часа 48 минут
Задачу делал сам, но не правильно. Учитель сказал:"Не понимаешь что такое список дорог 1-й и 3-й категории".Так что я и прошу помощи)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2012, 21:17
Ответы с готовыми решениями:

Одномерный массив: поиск элементов с заданными свойствами
помогите решить задание 4.Одномерные массивы. и задание 5.двумерные массивы....

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

Массив. Поиск элементов с заданными свойствами
В массиве хранятся элементы, соответствующие росту учеников класса. Найти: ...

Массив. Поиск элементов с заданными свойствами, замена
Помогите пожалуйста Дан массив целых чисел, состоящий из 10 элементов....

Двумерный массив: арифметические действия с элементами, поиск элементов с заданными свойствами
помогите пожалуйста написать программу для нахождения (массив риал 9х9 значения...

3
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
21.05.2012, 22:30 #2
Роман), больше никаких пояснений нет к задаче? просто странно, что шифров дорог и категорий - 10, а скоростей и протяженностей - 2...
1
Роман)
1 / 1 / 1
Регистрация: 21.11.2011
Сообщений: 38
22.05.2012, 19:00  [ТС] #3
Цитата Сообщение от КонецСвета Посмотреть сообщение
Роман), больше никаких пояснений нет к задаче? просто странно, что шифров дорог и категорий - 10, а скоростей и протяженностей - 2...
Ой извиняюсь.ошибся,там и там 10.
0
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
22.05.2012, 19:51 #4
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
35
36
uses crt;
const n=10;
var hd: array [1..n] of string;
    k,s,v: array [1..n] of integer;
    i,kk: byte;
begin
writeln('Внесите данные о дорогах');
for i:=1 to n do
    begin
    write('Укажите шифр ',i,' дороги: '); readln(hd[i]);
    write('Категория (1,2,3): '); readln(k[i]);
    write('Протяженность (км): '); readln(s[i]);
    write('Средняя скорость на дороге (км/ч): '); readln(v[i]);
    end;
writeln;
writeln('Список дорог 1-й категории с протяженностью>100 км и скоростью>60 км/ч');
kk:=0;
for i:=1 to n do
    if (k[i]=1) and (s[i]>100) and (v[i]>60) then
       begin
       kk:=kk+1;
       writeln(kk:2,' ',hd[i],', протяженностью в ',s[i],' км, средняя скорость ',v[i]);
       end;
if kk=0 then writeln('Дороги, соответствующие этому требованию, отсутствуют');
kk:=0;
writeln;
writeln('Список дорог 3-й категории с протяженностью<200 км и средней скоростью>40 км/ч');
for i:=1 to n do
    if (k[i]=3) and (s[i]<200) and (v[i]>40) then
       begin
       kk:=kk+1;
       writeln(kk:2,' ',hd[i],', протяженностью в ',s[i],' км, средняя скорость ',v[i]);
       end;
if kk=0 then writeln('Дороги, соответствующие этому требованию, отсутствуют');
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2012, 19:51

Матрица: поиск элементов с заданными свойствами
Задана матрица А(n,m). Для выполнения действий над элементами матрицы в...

Одномерные массивы: поиск элементов с заданными свойствами
Исходный массив должен быть выведен на экран. Все преобразования производить с...

Обработка матриц: поиск элементов с заданными свойствами
мне срочно нужна помощ!(( Дан массив размерностью 10*10. 1.вычислить...


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

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

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