|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2009, 19:30 | #1 |
Регистрация: 26.05.2009
Сообщений: 8
|
Помогите нарисовать блок-схемы к 3 задачкам
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. |
28.05.2009, 19:30 | #2 |
Регистрация: 26.05.2009
Сообщений: 8
|
Так же к этой:
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. |
28.05.2009, 19:31 | #3 |
Регистрация: 26.05.2009
Сообщений: 8
|
И вот этой:
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. |
28.05.2009, 19:31 | #4 |
Регистрация: 26.05.2009
Сообщений: 8
|
Помогите пожалуйста, очень важно, пишите на почту: Lisenok141@yandex.ru
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите,пожалуйста,решить задачки по паскалю!И составить блок схемы! | ...Оленька... | Фриланс | 7 | 19.12.2008 19:18 |
Помогите с составлением БЛОК СХЕМЫ | kiko | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 28.11.2008 11:35 |
Помогите нарисовать болк схемы!ПЛИЗЗЗЗ! | vdv08 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 10.04.2008 10:29 |