|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.11.2009, 11:18 | #1 (permalink) |
Новичок
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Напишите, пожалуйста, две блок-схемы алгоритмов
Program chisla; Uses crt; VAR a,b:REAL; BEGIN Clrscr; Write('a= '); ReadLn(a); Write('b= '); ReadLn(b); IF a<b THEN BEGIN a:=a*2; b:=b*2; END ELSE BEGIN a:=SQR(a); b:=SQR(b); END; WriteLn('a= ',a); WriteLn('b= ',b); ReadLn; END. 2.Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности. CONST n= 4; {11 n} VAR i:INTEGER; A:ARRAY[1..n] of REAL; Max:REAL; BEGIN Write('A[1]= '); ReadLn(A[1]); MAX:=A[1]; FOR i:=2 TO n DO BEGIN Write('A[',i,']= '); ReadLn(A[i]); IF A[i]>MAX THEN MAX:=A[i]; END; WriteLn('MAX= ',MAX); ReadLn; END. |
08.11.2009, 11:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение этой проблемы можно ускорить, прочитав похожие темы Помогите, пожалуйста, нарисовать блок-схемы? Блок питания для схемы TDA7294 Построение блок-схемы Составить алгоритмы блок-схемы Помогите пожалуйста с блок-схемой Подскажите программу, которая составляет сама блок схемы |
08.11.2009, 12:44 | #4 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Вот те же схемы, сделанные на компютере. пользуйтесь на здоровье
Последний раз редактировалось MrSTEP; 08.11.2009 в 12:47 Причина: невнимательно прочитал предыдущий пост |
08.11.2009, 13:23 | #5 (permalink) |
Новичок
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
на чём ты так нарисовал, офигенно получилось
если можешь и есть время перерисуй пожалуйста вот эти схемыhttp://www.tehnari.ru/imagehosting/2...68de8edb1e.jpghttp://www.tehnari.ru/imagehosting/2...68dfd03b38.jpg
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.11.2009, 14:40 | #7 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Делал в Microsoft Office Visio 2007.
держи. сделал так же, как было в оригинале, то есть отставил условия 1, 2, 3, ввод надписи и т.п.. Последний раз редактировалось MrSTEP; 08.11.2009 в 14:45 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|