Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2009, 16:29   #1
Анюта141
 
Регистрация: 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.


Помогите пожалуйста, буду очень благодарна
Анюта141 вне форума Ответить с цитированием
Старый 02.06.2009, 23:14   #2
Skyrazor
Пользователь
 
Аватар для Skyrazor
 
Регистрация: 31.05.2009
Сообщений: 22
По умолчанию

к сожалению времени только на 1 задачку

картинка во вложении и ещё тут запасная

если никто больше не напишет и если вам завтра ещё нужно будет - нарисую завтра остальные
Изображения
Тип файла: jpg Untitled.jpg (15.8 Кб, 137 просмотров)
Skyrazor вне форума Ответить с цитированием
Старый 03.06.2009, 06:04   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ищем fceditor, на форуме неоднократно обсуждалась (и даже выкладывалась) утилитка, которая строит блок-схемы сама (автоматически) по исходному тексту программы.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите нарисовать блок-схемы к 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