Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
roshik2
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 1
#1

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

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

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

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

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

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

Составте кому не трудно, буду очень благодарен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2010, 21:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Формирование массивов (Pascal):

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

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

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

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

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

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

1
c1lindro
15 / 15 / 2
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Формирование массива - Pascal
Дан массив целых чисел, в котором могут встречаться повторяющиеся элементы. Получить новый массив, содержащий повторяющиеся элементы...

формирование стека - Pascal
.Разработать программу формирования стека, содержащего целые положительные числа, и его преобразования путем удаления из него всех четных...

Формирование массива - Pascal
Дан массив целых чисел, в котором могут встречаться повторяющиеся элементы. Получить новый массив, содержащий повторяющиеся элементы...


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

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

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