Jump to content
СофтФорум - всё о компьютерах и не только

Блок-схема


Recommended Posts

Turbo Pascal:

Program p1;

uses CRT;

var

s1,s2:string;

x1,x2,k:integer;

begin

CLRSCR;

write('ievadiet virkni s1: ');

readln(s1);

write('ievadiet virkni s2: ');

readln(s2);

for k:=1 to length (s1) do

if (s1[k] in ['A'..'Z']) or (s1[k] in ['a'..'z']) then inc(x1);

for k:=1 to length (s2) do

if (s2[k] in ['A'..'Z']) or (s2[k] in ['a'..'z']) then inc(x2);

if x1=x2 then writeln('Virknu s1 un s2 latinu burtu skaits ir vienads');

if x1>x2 then writeln('Virkne s1 ir vairak latinu burtu');

if x2>x1 then writeln('Virkne s2 ir vairak latinu burtu');

readln;

end.

Может кто помочь, как рисовать блок-схему? =(

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...