Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Александра86
0 / 0 / 0
Регистрация: 04.04.2013
Сообщений: 41
#1

Блок-схему - Turbo Pascal

09.04.2013, 17:51. Просмотров 322. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
Var
x: Real;
BEGIN
x:=0.5;
Repeat
x:=x+0.5;
Writeln('X= ',x:2:1,'   Y= ',2.5+Sin(-x):5:2);
until x=10;
readln
end.
Сделайте пожалуйста блок-схему.я сделала но я сомневаюсь что правильно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2013, 17:51
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Блок-схему (Turbo Pascal):

Составить блок-схему - Turbo Pascal
Нужно составить блок схему для этой задачи: Program summa; uses WIncrt; var i:integer; pr,sum,a:real; begin WRITE('a='); ...

Нарисовать блок схему - Turbo Pascal
(x+a)(x−b)<0

Составить блок-схему - Turbo Pascal
Помогите начертить блок-схему программа уже написанна:var i,n:integer; a:array of real; s,sum:real; begin write('n =...

Составить блок схему - Turbo Pascal
Program zamena; uses crt; const n=20; var a: array of integer; i, max_i, Summ1, Summ2: integer; BEGIN ...

Нарисовать блок-схему - Turbo Pascal
uses crt; const symbol=;//разделители слов var f:text; s,s1:string; i,j,k:integer; begin assign(f,'text.txt'); ...

Нарисовать блок-схему - Turbo Pascal
Помогите нарисовать блок-схему! Вот код Program lab4; uses crt; type mas=array of integer; var a:mas; s,sl,n,m,i,j:integer; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2013, 17:51
Привет! Вот еще темы с ответами:

Создать Блок-схему - Turbo Pascal
const n = 5; type TMatrix = array of Byte; procedure MatrixRandom(var M: TMatrix); var i, j: Integer; begin

Создать Блок-схему - Turbo Pascal
var n, i, Cnt: Byte; Chlen,Fakt: Longint; begin Write('n = '); ReadLn(n); Fakt:= 1; Chlen := 0; Cnt := 0; ...

Сделать блок схему - Turbo Pascal
function VvodAndCalcSred(n: integer): real; var i,j,h:integer; begin h:=0; sr:=0; i:=0; while i<n do begin readln(j); ...

Нарисовать БЛОК-СХЕМУ - Turbo Pascal
uses crt; var n:integer; s:real; begin clrscr; n:=0; s:=0; while n<128 do begin n:=n+2;


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

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

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