|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2009, 16:29 | #1 |
Регистрация: 26.05.2009
Сообщений: 8
|
Помогите пожалуйста нарисовать блок-схемы к задачкам
К этой:
program lab1; var a,b,c,d,x,x1,x2:real; begin writeln ('это программа поиска корней квадратного уравнения. Введите a,b,c'); readln (a,b,c); d:=sqr(b)-4*a*c; if d>0 then begin x1:=(-b-sqrt(d))/2*a; x2:=(-b+sqrt(d))/2*a; writeln ('x1=',x1:5:2,' x2=',x2:5:2); end else if d=0 then begin x:=(-b)/2*a; writeln ('x=',x); end else writeln ('корней нет'); end. Этой: program cod_sim; uses crt; var n,i,s,e:byte; sim:char; begin clrscr; writeln ('Задайте целое положительное число n='); readln(n); writeln ('Задайте целое положительное число e='); readln(e); s:=0; for i:=1 to n do begin sim:=chr(i); write (i,'-',sim,' '); s:=s+1; if s=e then begin s:=0; writeln; end; end; writeln ('Задайте целое положительное число n='); end. И этой: program summa; var s,n,i:real; p:char; begin repeat writeln ('Введите положительное число n'); readln (n); s:=0; i:=1; writeln ('Номер шага','Значение суммы ряда'); while i<=n do begin s:=s+1/i; i:=i+1; writeln ('i=',i-1,'s=',s:8:3) end; writeln ('Конечный результат s=',s:8:3); writeln ('Повторить расчет? Y/n'); readln (p); until (p='n') or (p='N'); end. Помогите пожалуйста, буду очень благодарна |
03.06.2009, 06:04 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ищем fceditor, на форуме неоднократно обсуждалась (и даже выкладывалась) утилитка, которая строит блок-схемы сама (автоматически) по исходному тексту программы.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите нарисовать блок-схемы к 3 задачкам | Анюта141 | Помощь студентам | 3 | 28.05.2009 19:31 |
Помогите пожалуйста нарисовать блок-схему | Анюта141 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 27.05.2009 06:36 |
Помогите,пожалуйста,решить задачки по паскалю!И составить блок схемы! | ...Оленька... | Фриланс | 7 | 19.12.2008 19:18 |