Блок-схема 2

kasper182 · 24.12.2012, 19:54

Здраствуйте помогите нарисовать блок-схему

uses crt;
const n = 10;
var a,a1: real;
* * k: integer;
begin
*readln(a);
*for k:=1 to n do
* begin
* *if odd(k) then
* * a1:=cos(pi*a/2)
* *else
* * a1:=sin(pi*a/2);
* *a:=a1;
* *writeln(a:5:4);
* end;
end.

заранее благодарен

kasper182 · 24.12.2012, 21:38

помогите плиз очень надо

24.12.2012, 19:54	#1 (permalink)
kasper182 Member Регистрация: 16.11.2012 Сообщений: 26 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Блок-схема 2 Здраствуйте помогите нарисовать блок-схему uses crt; const n = 10; var a,a1: real; * * k: integer; begin readln(a); for k:=1 to n do * begin * if odd(k) then * a1:=cos(pia/2) else * a1:=sin(pia/2); a:=a1; writeln(a:5:4); end; end. заранее благодарен

24.12.2012, 19:54
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Содержание вашей темы очень схоже с содержанием этих топиков Блок-схема 1 Блок-схема Блок-схема

24.12.2012, 21:38	#2 (permalink)
kasper182 Member Регистрация: 16.11.2012 Сообщений: 26 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	помогите плиз очень надо

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