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

Формирование массивов

19.12.2010, 21:47. Просмотров 1150. Ответов 1
Метки нет (Все метки)

Здраствуйте, я никогда не учил паскаль а теперь поступил в колледж, и мне задали такую задачу:

1.Составте программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и:
а) находит элементы с нулевыми значениями;
б) находит индексы четных элементов;

2.В массиве хранятся сведения о количестве осадков (в мм), выпадавших ежедневно в сентябре.Составте программу, которая подсчитывает количество дождливых дней (h [i] >0).

3.В массиве хранится информация о среднедневной температуре декабря, Составте программу, которая подсчитывает, сколько в декабре было дней с нулевой, отрицательной и положительной температурой.

Составте кому не трудно, буду очень благодарен
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2010, 21:47
Ответы с готовыми решениями:

Формирование массивов
Сформировать квадратную матрицу порядка n по заданному образцу

Формирование массивов
Сформировать квадратную матрицу по заданному образцу: 1 1 1 … 1 1 1 0 1 1 ...

Формирование массивов
Дана прямоугольная матрица размера m×n. Составить программу, которая находит столбцы с наибольшей и...

Формирование массивов, поиск элементов с заданными свойствами
Даны сведения о массах 15 вагонов состава - массив A . 1)Определить число вагонов N1 с массой >60...

Записать в файл f2 последовательность массивов, получающихся преобразованием исходных массивов
Pascal Дан файл h1, компонентами которого являются массивы целых чисел a0,a1,...,a7. Записать в...

1
c1lindro
15 / 15 / 8
Регистрация: 18.12.2010
Сообщений: 32
19.12.2010, 23:57 2
Лучший ответ Сообщение было отмечено как решение

Решение

3 задачка
код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var
   neg,pos,zer,i:integer;
   dec:array [1..31] of real;
 
begin
clrscr;
     randomize; zer:=0; neg:=0; pos:=0;
     for i:=1 to 31 do begin
         dec[i]:=random()*11-20;
         
         if dec[i]<0 then neg:=neg+1 else
            if dec[i]>0 then pos:=pos+1 else
               zer:=zer+1;
         writeln(i,'-го декабря было: ',dec[i]:2:1,' град.');
     end;
     writeln;
     writeln('с нулевой:',zer);
     writeln('с отриц:',neg);
     writeln('с полож:',pos);
     readkey;
end.
Добавлено через 14 минут
2_я

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
   rain,i:integer;
   h:array [1..30] of real;
 
begin
clrscr; randomize; rain:=0;
     for i:=1 to 30 do begin
         h[i]:=random(20);     // не знаю какую формулу ставить, очень дождливо получается
         if h[i]>0 then rain:=rain+1;
         writeln(i,' Sept. was : ',h[i]:2:1,' mm.');
     end;
     writeln;
     writeln('..count of rainy days: ',rain);
     readkey;
end.
Добавлено через 19 минут
что-то вроде такого для 1й задачи
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
uses crt;
var
   nope,i:integer;
   even,zero,h:array [1..16] of integer;
 
begin
clrscr; randomize;
     writeln('Array :');
     for i:=1 to 16 do begin
         h[i]:=random(41)-20;
         if h[i]=0 then zero[i]:=i;               // ищем нулики и собираем индексы в др массиве
         if h[i] mod 2 = 0 then even[i]:=i;   // ищем четные -=-
         write(h[i]:4);
     end;
     writeln;
     writeln('..index of zero: ');                // выводим нулики
     nope:=0;
     for i:=1 to 16 do
         if zero[i]<>0 then write (zero[i]:4) else
            nope:=nope+1;
         if nope=16 then write('Sorry, there is no zero..');
     writeln;
     writeln('..index of even: ');               // выводим четные
     nope:=0;
     for i:=1 to 16 do
         if even[i]<>0 then write (even[i]:4) else
            nope:=nope+1;
         if nope=16 then write('Sorry, there is no even..');
     readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2010, 23:57

Типизированные файлы. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов
Дан файл Н1, элементами которого являются массивы целых чисел а0,а1,…,а4. Записать в файл Н2...

В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов
Заданы два массива A(N) и B(M). В каждом из массивов найти наименьшее значение и умножить на него...

программы усложненной структуры, обработка двухмерных массивов, использование стандартных функций для работы с массивами, сортировка массивов.
Искала задачи, нашла в с++, а нужно в паскале сотворить следующее. Использование стандартных...


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

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

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