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

Вычислить сумму ряда. Одномерные, двумерные массивы

17.05.2012, 16:03. Просмотров 1010. Ответов 4
Метки нет (Все метки)

Осталось 3лабы по информатике но с паскалем не дружу помогите пожалуйста.

№1(4я л.р.). В приводимых задачах необходимо составить программу расчета конечной суммы и сравнения полученного результата с контрольным значением. Число членов суммы вводится с клавиатуры. вид суммы контрольное значение
1+2+3+4+...+N (N(N+1))/2
1ю лабу надо сделать 2мя способами(если не ошибаюсь 2мя разными операторами цикла)

№2(5я л.р.). 1. Дан массив целых чисел а1,…, аn. Сформировать массив В из положительных элементов мас-сива А.
Правила оформления работы(для №2)
1.Предусмотреть вывод в на экране ФИО, № группы студента, сделавшего работу.
2.Автоматическое формирование исходного массива.
3.Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями.

№3.(6я л.р.)
Обработка двумерного массива с использованием подпрограмм.
В качестве условия задачи берется задание из 4 лабораторной работы, но работать не с одной матрицей, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам.

Правила оформления работы
1. Предусмотреть вывод на экран ФИО, № группы студента, сделавшего работу.
2. Автоматическое формирование исходного массива.
3. Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями.
4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода массива.

Заранее большое спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2012, 16:03
Ответы с готовыми решениями:

Массивы(одномерные и двумерные)
не доходит до меня=(( 1. Одномерный массив А заполнить случайными числами из диапазона ....

Одномерные и двумерные массивы
Помогите пожалуйста с решением этих двух задач. К сожалению, я не понимаю как решать подобные...

одномерные и двумерные массивы
1)Решить уравнение a*x=b для пяти пар значений a и b, заданных в виде двух массивов. Результат...

Одномерные и двумерные массивы
1. Дано два одномерных массива. Требуется найти максимальные элементы каждого из них и поменять...

4
4292 / 1414 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
18.05.2012, 15:45 2
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
uses crt;
var i,j,n:integer;
a,b: array [1..100] of integer;
begin
 clrscr;
 randomize;
 j:=1;
 write('Порядок: ');
 readln(n); 
 for i:=1 to  n do 
  begin
   a[i]:=random(10)-5;
   if a[i]>0 then
    begin
     b[j]:=a[i];
     inc(j);
    end; 
   write(a[i]:3);
  end;
  writeln;
  for i:=1 to j do
   write(b[i]:3);
  readln; 
end.
Свои ФИО уж сами в конце допишите.
1
0 / 0 / 0
Регистрация: 17.05.2012
Сообщений: 3
19.05.2012, 10:57  [ТС] 3
Спасибо большое за помощь!))
Пожалуйста кто нибудь помогите ещё с 4й(№1) и 6й(№3) лабой ато завтро уже нести надо((
И в 6й опечатка там её надо делать на основе 5й а не 4й.

Добавлено через 12 часов 43 минуты
Цитата Сообщение от BumerangSP Посмотреть сообщение
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
uses crt;
var i,j,n:integer;
a,b: array [1..100] of integer;
begin
 clrscr;
 randomize;
 j:=1;
 write('Порядок: ');
 readln(n); 
 for i:=1 to  n do 
  begin
   a[i]:=random(10)-5;
   if a[i]>0 then
    begin
     b[j]:=a[i];
     inc(j);
    end; 
   write(a[i]:3);
  end;
  writeln;
  for i:=1 to j do
   write(b[i]:3);
  readln; 
end.
Свои ФИО уж сами в конце допишите.
А где и какой командой прописывать ФИО с группой?)

Добавлено через 22 минуты
program qq;
var
i, sum, n: longint;

begin
read(n);
for i := 1 to n do sum := sum (i);
if sum = (n*(n + 1)) / 2 then writeln('yes')
else writeln('no');
end.
В 4й наверно что-то вроде этого должно быть только есть ошибка(я полагаю в строке с for)
и ещё эту задачу с другим оператором цикла надо сделать...
0
4292 / 1414 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
19.05.2012, 16:57 4
Цитата Сообщение от Crauser73 Посмотреть сообщение
где и какой командой прописывать ФИО с группой?)
Да можно хоть в самом начале, после 4-й строчки.
Pascal
1
Writeln('Здесь вписать фио и т.д.');
1
0 / 0 / 0
Регистрация: 17.05.2012
Сообщений: 3
19.05.2012, 19:19  [ТС] 5
Лабы сдал. спасибо за помощь.тему можно закрывать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2012, 19:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Одномерные и двумерные массивы
Здравствуйте! Мне очень нужно что б вы мне помогли в паскале! Я в теме программирования ничего не...

Двумерные и одномерные массивы
7. Дана матрица размера 5 x 10. Удалить строку (столбец), содержащую мини-мальный (максимальный)...

массивы (двумерные, одномерные)
помогите, пожалуйста, решить задачки! Очень надо! 1. ввести двумерный массив, размерность указать...

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


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

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

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