Паскаль, построить блок-схему

@Алиса Белатриса · Регистрация: 08.05.2011

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, построить блок-схему к задаче, или подскажите литературу, в которой можно найти информацию

@SuPeR XaKer · 08.05.2011, 22:21

Если вам лень переписть код сюда то вы надеетесь что кто то это будет делать за вас?

@Алиса Белатриса · 08.05.2011, 22:26 **[ТС]**

Простите, я здесь новенькая, и торможу.

Дан массив A состоящий из восьми целых чисел (2 ; -4; 3; 1; 5; -2; 1;0).
Тогда в результате работы фрагмента программы:
S:=0
For i:=1 to 8 do
If A [i]>0 then S:=s+1
Переменная S примет значение, равное…

@SuPeR XaKer · 08.05.2011, 22:27

класс!!!Это похоже на код со скрина?

@Алиса Белатриса · 08.05.2011, 22:29 **[ТС]**

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

@SuPeR XaKer · 08.05.2011, 22:31

хорошо переформулирую свой вопрос.Ты код с картинки из первого поста на форум не могла бы переписать?

@Алиса Белатриса · 08.05.2011, 22:33 **[ТС]**

Просто переписать программу, которая на скриншоте? Но смысл этого действия, если на скрине видно?

@SuPeR XaKer · 08.05.2011, 22:37

ладно.Введи в поисковике блок схема и увидешь ссылку на википедию,и там будет описание всех обозначений в схемах.Или скачай программку FCEditor и благополучно откатывай по своему коду программы.Не утруждайтесь переписыванием кода ну зачем вам это надо...

@Алиса Белатриса · 08.05.2011, 22:53 **[ТС]**

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

@SuPeR XaKer · 08.05.2011, 22:55

ну вот видите было бы проще вам переписать код и получить готовую блок схему,чем мне вам объяснять что да как.

@Алиса Белатриса · 08.05.2011, 23:05 **[ТС]**

ок, сейчас перепишу!

Добавлено через 7 минут
Program der;
Uses crt;
Const
N=8;
Type
Massiv = array[1..n] of integer;
Var
A:massiv;
I,s:integer;
Begin
Clrscr;
S:0;
For i:=1 to n do
Begin
A[1]:=2; a[2]:=-4; a[3]:=3; a[4]:=1; a[5]:=5; a[6]:=-2; a[7]:=1; a[8]:=0;
End;
For i:=1 to n do
If a[i]>0 then
s:=s+1;
write(‘otvet s=’,s);
readln;
end.

@SuPeR XaKer · 08.05.2011, 23:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program der;
Uses crt;
Const
N=8;
Type
Massiv = array[1..n] of integer;
Var
A:massiv;
I,s:integer;
Begin
Clrscr;
S:=0;
A[1]:=2; a[2]:=-4; a[3]:=3; a[4]:=1; a[5]:=5; a[6]:=-2; a[7]:=1; a[8]:=0;
For i:=1 to n do
If a[i]>0 then
s:=s+1;
write('otvet s=',s);
readln;
end.

убрал не нужный цикл

@Алиса Белатриса · 08.05.2011, 23:18 **[ТС]**

Спасибо огромное за помощь!!!

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Алиса Белатриса 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 17

	Паскаль, построить блок-схему 08.05.2011, 22:18. Показов 1938. Ответов 12 Метки нет (Все метки) Помогите, пожалуйста, построить блок-схему к задаче, или подскажите литературу, в которой можно найти информацию 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	08.05.2011, 22:21
	Если вам лень переписть код сюда то вы надеетесь что кто то это будет делать за вас? 0

@Алиса Белатриса 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 17
	08.05.2011, 22:26 [ТС]
	Простите, я здесь новенькая, и торможу. Дан массив A состоящий из восьми целых чисел (2 ; -4; 3; 1; 5; -2; 1;0). Тогда в результате работы фрагмента программы: S:=0 For i:=1 to 8 do If A [i]>0 then S:=s+1 Переменная S примет значение, равное… 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	08.05.2011, 22:27
	класс!!!Это похоже на код со скрина? 0

@Алиса Белатриса 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 17
	08.05.2011, 22:29 [ТС]
	Я не знаю, что такое код со скрина. У меня было это условие, по нему нужно было составить программу и блок-схему. Первое сделано, второе не получается. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	08.05.2011, 22:31
	хорошо переформулирую свой вопрос.Ты код с картинки из первого поста на форум не могла бы переписать? 0

@Алиса Белатриса 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 17
	08.05.2011, 22:33 [ТС]
	Просто переписать программу, которая на скриншоте? Но смысл этого действия, если на скрине видно? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	08.05.2011, 22:37
	ладно.Введи в поисковике блок схема и увидешь ссылку на википедию,и там будет описание всех обозначений в схемах.Или скачай программку FCEditor и благополучно откатывай по своему коду программы.Не утруждайтесь переписыванием кода ну зачем вам это надо... 0

@Алиса Белатриса 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 17
	08.05.2011, 22:53 [ТС]
	Спасибо, но как пользоваться этой программой? На какую кнопку нажать, чтобы код загрузить? Ничего не понятно 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	08.05.2011, 22:55
	ну вот видите было бы проще вам переписать код и получить готовую блок схему,чем мне вам объяснять что да как. 0

@Алиса Белатриса 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 17
	08.05.2011, 23:05 [ТС]
	ок, сейчас перепишу! Добавлено через 7 минут Program der; Uses crt; Const N=8; Type Massiv = array[1..n] of integer; Var A:massiv; I,s:integer; Begin Clrscr; S:0; For i:=1 to n do Begin A[1]:=2; a[2]:=-4; a[3]:=3; a[4]:=1; a[5]:=5; a[6]:=-2; a[7]:=1; a[8]:=0; End; For i:=1 to n do If a[i]>0 then s:=s+1; write(‘otvet s=’,s); readln; end. 0

@Алиса Белатриса 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 17
	08.05.2011, 23:18 [ТС]
	Спасибо огромное за помощь!!! 0