Линейный
Жили-были дед да баба.
Была у них курочка ряба.
Снесла курочка яичко, не простое, золотое.
Дед бил, бил – не разбил.
Баба била, била – не разбила.
Мышка бежала, хвостиком махнула.
Яичко упало и разбилось.
Дед и баба плачут.
Курочка кудахчет.
с ветвлением
«Гуси-лебеди»
Начало
Девочка просит печку помочь.
Если съешь моего пирожка,
то помогу,
иначе не помогу
Конец
Любишь кататься, люби и саночки возить
Начало
если любишь кататься,
то люби и саночки возить
Конец
Циклический алгоритм
«Собирай по ягодке, наберешь кузовок»
Сказка о рыбаке и рыбке:
- раз старик закинул невод, пришел невод с одною тиной
второй раз старик закинул невод... .
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
ЭТО ОБЫЧНЫЙ КАЛЬКУЛЯТОР,ТОЛЬКО ТАМ КРОМЕ +,- И * ЕСТЬ МНОГО ДРУГИХ ДЕЙСТВИЙ...НАПРИМЕР,ВОЗВЕДЕНИЕ N в степень...
Uses crt;
var a,x:integer;
i,s:integer;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if s=10 then
writeln('Верно')
else
writeln('Неверно');
end.