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

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

09.01.2011, 14:28. Показов 6328. Ответов 9
Метки нет (Все метки)

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

помогите пожалуйста, а то я в этом совсем не понимаю1 (((
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2011, 14:28
Ответы с готовыми решениями:

Составить программу и блок схему на языке паскаль
Составить программу и блок схему на языке паскаль Y=x^2+k+sqrt(x^2+k) при x=5 k=4

Составить блок схему и программу на языке Паскаль z=1/m+m-1/m(x+1)^2
Составить блок схему и программу на языке Паскаль z=1/m+m-1/m(x+1)^2

Построить блок-схему алгоритма для вычисления значения функции и написать программу на языке pascal
Помогите решить такую задачу Построить блок-схему алгоритма для вычисления значения функции и...

Создать блок-схему и программу на языке Pascal
Задано основу, высоту и острый угол при основании параллелограмма. Вычислить а) площадь; б)...

9
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
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
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
09.01.2011, 17:00 4
Это надо спрашивать у препода.Полный код писать или фрагмент
0
0 / 0 / 0
Регистрация: 09.01.2011
Сообщений: 6
09.01.2011, 17:04  [ТС] 5
а можете помочь в еще одном задании пожалуйста! ((
Дана информация о десяти документах:
вид документа (приказ, распоряжение, извещение, постановление, заявление, инструкция ), регистрационный номер, адресат, автор документа, содержание (коротко).
Составить программу на языке Pascalпоиска (напечатать содержание) и подсчета количества документов в соответствии с заданием:
Найти все заявления.
0
5 / 5 / 1
Регистрация: 09.05.2010
Сообщений: 43
09.01.2011, 17:30 6
Цитата Сообщение от Tasha1991 Посмотреть сообщение
а можете помочь в еще одном задании пожалуйста! ((
Дана информация о десяти документах:
вид документа (приказ, распоряжение, извещение, постановление, заявление, инструкция ), регистрационный номер, адресат, автор документа, содержание (коротко).
Составить программу на языке Pascalпоиска (напечатать содержание) и подсчета количества документов в соответствии с заданием:
Найти все заявления.
что-то я несовсем пойму условие. Объясните каким образом хранится эта информация, вернее где она хранится (файл, список).
0
0 / 0 / 0
Регистрация: 09.01.2011
Сообщений: 6
09.01.2011, 18:55  [ТС] 7
что-то я несовсем пойму условие. Объясните каким образом хранится эта информация, вернее где она хранится (файл, список).
нам к этому заданию вот такой пример дали, сказали по нему сделать:
Задание:
Найти приказ за номером 2243 в базе данных, содержащей 25 документов с реквизитами: тип документа, номер, содержание.

Решение:

Текст программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
0
780 / 461 / 85
Регистрация: 20.02.2010
Сообщений: 974
09.01.2011, 19:06 8
однозначно препода не устроит фрагмент кода, хотя можете рискнуть )))
0
0 / 0 / 0
Регистрация: 09.01.2011
Сообщений: 6
09.01.2011, 19:10  [ТС] 9
Цитата Сообщение от N@tali Посмотреть сообщение
однозначно препода не устроит фрагмент кода, хотя можете рискнуть )))

а можешь подсказат как полностью? пожалуйста
0
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2011, 14:23

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

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

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

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

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


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

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

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