Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 08.11.2009, 11:18   #1 (permalink)
Максимус
Новичок
 
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Напишите, пожалуйста, две блок-схемы алгоритмов

1.Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае.

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
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Решение этой проблемы можно ускорить, прочитав похожие темы

Помогите, пожалуйста, нарисовать блок-схемы?
Блок питания для схемы TDA7294
Построение блок-схемы
Составить алгоритмы блок-схемы
Помогите пожалуйста с блок-схемой
Подскажите программу, которая составляет сама блок схемы

Старый 08.11.2009, 12:01   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Вот блок-схемы, надеюсь все видно. Если что не так, говорите, исправим
Миниатюры
08112009060.jpg  
MrSTEP вне форума   Ответить с цитированием
Старый 08.11.2009, 12:31   #3 (permalink)
Максимус
Новичок
 
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от MrSTEP Посмотреть сообщение
Вот блок-схемы, надеюсь все видно. Если что не так, говорите, исправим
плохо видно не мог бы ты поразборчевее нарисовать! плиз
ЗА схему спасибо!!!
Максимус вне форума   Ответить с цитированием
Старый 08.11.2009, 12:44   #4 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Вот те же схемы, сделанные на компютере. пользуйтесь на здоровье
Миниатюры
.jpg  

Последний раз редактировалось MrSTEP; 08.11.2009 в 12:47 Причина: невнимательно прочитал предыдущий пост
MrSTEP вне форума   Ответить с цитированием
Старый 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, 13:28   #6 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

щас сделаю
MrSTEP вне форума   Ответить с цитированием
Старый 08.11.2009, 14:40   #7 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Делал в Microsoft Office Visio 2007.
держи. сделал так же, как было в оригинале, то есть отставил условия 1, 2, 3, ввод надписи и т.п..
Миниатюры
1.jpg   2.jpg  

Последний раз редактировалось MrSTEP; 08.11.2009 в 14:45
MrSTEP вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:13.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.