Составить блок-схему и программу на языке Pascal

@Tasha1991 · Регистрация: 09.01.2011

Составить блок-схему и программу на языке Pascal:
Определить, каких элементов положительных или отрицательных, больше в последовательности a1, a2, ..., аn.

помогите пожалуйста, а то я в этом совсем не понимаю1 (((

@egorlp · 09.01.2011, 16:24

мда, создаёте массив типа int. Затем выводите запрос на ввод элементов с клавиатуры либо рандомно. А потом делаете цикл: p:=0; o:=0; for i:=1 to n do
if a[i]<0 then p:=p+1;
for i:=1 to n do
if a[i]>0 then o:=o+1;
if p>o then writeln('polozhitelnih bolshe')
else if o>p then writeln ('bolshe otricatlnih');

@Tasha1991 · 09.01.2011, 16:57 **[ТС]**

Сообщение от egorlp

мда, создаёте массив типа int. Затем выводите запрос на ввод элементов с клавиатуры либо рандомно. А потом делаете цикл: p:=0; o:=0; for i:=1 to n do
if a[i]<0 then p:=p+1;
for i:=1 to n do
if a[i]>0 then o:=o+1;
if p>o then writeln('polozhitelnih bolshe')
else if o>p then writeln ('bolshe otricatlnih');

спасибо большое, а можно вопрос??!! если я в контрольной отвечу таким ответом этого будет достаточно для этого задания?

@SuPeR XaKer · 09.01.2011, 17:00

Это надо спрашивать у препода.Полный код писать или фрагмент

@Tasha1991 · 09.01.2011, 17:04 **[ТС]**

а можете помочь в еще одном задании пожалуйста! ((
Дана информация о десяти документах:
вид документа (приказ, распоряжение, извещение, постановление, заявление, инструкция ), регистрационный номер, адресат, автор документа, содержание (коротко).
Составить программу на языке Pascalпоиска (напечатать содержание) и подсчета количества документов в соответствии с заданием:
Найти все заявления.

@egorlp · 09.01.2011, 17:30

Сообщение от Tasha1991

а можете помочь в еще одном задании пожалуйста! ((
Дана информация о десяти документах:
вид документа (приказ, распоряжение, извещение, постановление, заявление, инструкция ), регистрационный номер, адресат, автор документа, содержание (коротко).
Составить программу на языке Pascalпоиска (напечатать содержание) и подсчета количества документов в соответствии с заданием:
Найти все заявления.

что-то я несовсем пойму условие. Объясните каким образом хранится эта информация, вернее где она хранится (файл, список).

@Tasha1991 · 09.01.2011, 18:55 **[ТС]**

что-то я несовсем пойму условие. Объясните каким образом хранится эта информация, вернее где она хранится (файл, список).

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

Решение:

Текст программы:

Pascal

Type
zap = record
tip: string[10];
number: integer;
sod: string
end;
Var
a: array [25] of zap;
x,i: integer;
begin
for i =1 to 25 do
readln(a[i].tip, a[i].number, a[i].sod);
readln (x);
for i =1 to 25 do
if (a[i].number = x) and (a[i].tip = ‘приказ’) then writln (a[i].sod)
end.

@N@tali · 09.01.2011, 19:06

однозначно препода не устроит фрагмент кода, хотя можете рискнуть )))

@Tasha1991 · 09.01.2011, 19:10 **[ТС]**

Сообщение от N@tali

однозначно препода не устроит фрагмент кода, хотя можете рискнуть )))

а можешь подсказат как полностью? пожалуйста

@Ksenonka · 14.05.2011, 14:23

Будьте добры, надо помочь решить задание!
ОтWMR'ю, кто сделает )

Составить блок-схему алгоритма и программу на языке ПАСКАЛЬ вычисления значения функции Y=F(x) для аргумента x, изменяющегося от xн до xк с шагом изменения Hx.
Представление выполненного задания должно содержать:
Условие задачи;
Блок-схему алгоритма;
Текст программы;
Контрольный пример (исходные данные подбираются так, чтобы таблица значений функции содержала не более 4 – 5 строк);
Протокол выполнения программы, т.е. то, что отображается на экране (диалог по вводу исходных значений, результаты работы программы).

http://rghost.ru/6313021/image.png

@Tasha1991 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 6
		1
	Составить блок-схему и программу на языке Pascal 09.01.2011, 14:28. Показов 6754. Ответов 9 Метки нет (Все метки) Составить блок-схему и программу на языке Pascal: Определить, каких элементов положительных или отрицательных, больше в последовательности a1, a2, ..., аn. помогите пожалуйста, а то я в этом совсем не понимаю1 ((( 0

@egorlp 5 / 5 / 1 Регистрация: 09.05.2010 Сообщений: 43
	09.01.2011, 16:24	2
	мда, создаёте массив типа int. Затем выводите запрос на ввод элементов с клавиатуры либо рандомно. А потом делаете цикл: p:=0; o:=0; for i:=1 to n do if a[i]<0 then p:=p+1; for i:=1 to n do if a[i]>0 then o:=o+1; if p>o then writeln('polozhitelnih bolshe') else if o>p then writeln ('bolshe otricatlnih'); 1

@Tasha1991 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 6
	09.01.2011, 16:57 [ТС]	3
	Сообщение от egorlp мда, создаёте массив типа int. Затем выводите запрос на ввод элементов с клавиатуры либо рандомно. А потом делаете цикл: p:=0; o:=0; for i:=1 to n do if a[i]<0 then p:=p+1; for i:=1 to n do if a[i]>0 then o:=o+1; if p>o then writeln('polozhitelnih bolshe') else if o>p then writeln ('bolshe otricatlnih'); спасибо большое, а можно вопрос??!! если я в контрольной отвечу таким ответом этого будет достаточно для этого задания? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.01.2011, 17:00	4
	Это надо спрашивать у препода.Полный код писать или фрагмент 0

@Tasha1991 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 6
	09.01.2011, 17:04 [ТС]	5
	а можете помочь в еще одном задании пожалуйста! (( Дана информация о десяти документах: вид документа (приказ, распоряжение, извещение, постановление, заявление, инструкция ), регистрационный номер, адресат, автор документа, содержание (коротко). Составить программу на языке Pascalпоиска (напечатать содержание) и подсчета количества документов в соответствии с заданием: Найти все заявления. 0

@egorlp 5 / 5 / 1 Регистрация: 09.05.2010 Сообщений: 43
	09.01.2011, 17:30	6
	Сообщение от Tasha1991 а можете помочь в еще одном задании пожалуйста! (( Дана информация о десяти документах: вид документа (приказ, распоряжение, извещение, постановление, заявление, инструкция ), регистрационный номер, адресат, автор документа, содержание (коротко). Составить программу на языке Pascalпоиска (напечатать содержание) и подсчета количества документов в соответствии с заданием: Найти все заявления. что-то я несовсем пойму условие. Объясните каким образом хранится эта информация, вернее где она хранится (файл, список). 0

@N@tali 780 / 461 / 85 Регистрация: 20.02.2010 Сообщений: 974
	09.01.2011, 19:06	8
	однозначно препода не устроит фрагмент кода, хотя можете рискнуть ))) 0

@Tasha1991 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 6
	09.01.2011, 19:10 [ТС]	9
	Сообщение от N@tali однозначно препода не устроит фрагмент кода, хотя можете рискнуть ))) а можешь подсказат как полностью? пожалуйста 0

@Ksenonka 0 / 0 / 0 Регистрация: 25.12.2016 Сообщений: 6
	14.05.2011, 14:23	10
	Будьте добры, надо помочь решить задание! ОтWMR'ю, кто сделает ) Составить блок-схему алгоритма и программу на языке ПАСКАЛЬ вычисления значения функции Y=F(x) для аргумента x, изменяющегося от xн до xк с шагом изменения Hx. Представление выполненного задания должно содержать: Условие задачи; Блок-схему алгоритма; Текст программы; Контрольный пример (исходные данные подбираются так, чтобы таблица значений функции содержала не более 4 – 5 строк); Протокол выполнения программы, т.е. то, что отображается на экране (диалог по вводу исходных значений, результаты работы программы). http://rghost.ru/6313021/image.png 0

Опции темы