Дано текстовий файл, що містить числову інформацію. Виберіть з нього числа і занесіть в стек. Виведіть вміст стеку на екран і порахуйте суму цих чисел.(структури даних)
uses crt; label 1; var a: integer; begin 1: write('Введите азимут в градусах: '); readln(a); if a in [1..89] then writeln('Направление: северо-восток'); if a = 90 then writeln('Направление: восток'); if a in [91..179] then writeln('Направление: юго-восток'); if a = 180 then writeln('Направление: юг'); if a in [181..269] then writeln('Направление: юго-запад'); if a = 270 then writeln('Направление: запад'); if a in [271..359] then writeln('Направление: северо-запад'); if a in [0,360] then writeln('Направление: север'); if a > 360 then begin clrscr; введите корректное значение.'); goto 1; end; if a < 0 then begin clrscr; введите корректное значение.'); goto 1; end; end.
{Второй вариант} uses crt; label 1; var a: integer; begin 1: write('Введите азимут в градусах: '); readln(a); case a of 0,360: writeln('Направление: север'); 1..89: writeln('Направление: северо-восток'); 90: writeln('Направление: восток'); 91..179: writeln('Направление: юго-восток'); 181..269: writeln('Направление: юго-запад'); 270: writeln('Направление: запад'); 271..359: writeln('Направление: северо-запад'); end; if a < 0 then begin clrscr; введите корректное значение.'); goto 1; end; if a > 360 then begin clrscr; введите корректное значение.'); goto 1; end; end.
var a,t:string; b:array[1..100]of string; j,i,k,n:integer; begin writeln('vvedite predlojenie'); readln(a); a:=' '+a; for i:=1 to length(a) do if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i:=1 to k do begin t:=b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='o' then n:=1; if n=1 then write (t,' '); end; end.
uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
if a in [1..89] then writeln('Направление: северо-восток');
if a = 90 then writeln('Направление: восток');
if a in [91..179] then writeln('Направление: юго-восток');
if a = 180 then writeln('Направление: юг');
if a in [181..269] then writeln('Направление: юго-запад');
if a = 270 then writeln('Направление: запад');
if a in [271..359] then writeln('Направление: северо-запад');
if a in [0,360] then writeln('Направление: север');
if a > 360 then begin
clrscr;
введите корректное значение.');
goto 1;
end;
if a < 0 then begin
clrscr;
введите корректное значение.');
goto 1;
end;
end.
{Второй вариант}
uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
case a of
0,360: writeln('Направление: север');
1..89: writeln('Направление: северо-восток');
90: writeln('Направление: восток');
91..179: writeln('Направление: юго-восток');
181..269: writeln('Направление: юго-запад');
270: writeln('Направление: запад');
271..359: writeln('Направление: северо-запад');
end;
if a < 0 then begin
clrscr;
введите корректное значение.');
goto 1;
end;
if a > 360 then begin
clrscr;
введите корректное значение.');
goto 1;
end;
end.