Регистрация
janeair6994
22.04.2020 07:40
Информатика
Есть ответ 👍

1. Записать представленную часть блок-схемы в виде условного оператора (как во втором
задании)
X >10
Y=X*X Y=X*X*X
2. Изобразить в виде блок-схемы команду (как в первом задании):
If (с<=15)
{с:=5*с; }
3. Переведите на язык программирования следующие высказывания:
а) Если a равно b, тогда c присвоить их сумму.
б) Если a больше или равно b, тогда c присвоить квадрат b, иначе c присвоить -а.
в) Если 10 г) Если a меньше 10, тогда b присвоить квадрат d, c присвоить куб a, иначе c присвоить квадрат b.

245
478
Посмотреть ответы 1

Ответы на вопрос:

ХарламоваяАня
ХарламоваяАня
4,8(32 оценок)
1. программа, файл var   f: file of integer;   i,k: integer; begin   randomize;   assign(f,'in.dat'); rewrite(f);   for i: =1 to 20 do begin       k: =random(99)+1;       write(f,k)       end;   close(f) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 2. основная программа uses crt; const   nn=100; var   i,j,k,n: integer;   fin,fout: file of integer;   a: array[1..nn] of integer;   dub: boolean; begin   clrscr;   assign(fin,'in.dat'); reset(fin);   read(fin,k);   if not eof(fin) then begin       n: =1; write(k,' '); a[n]: =k       end   else n: =0;   while (not eof(fin)) and (n< =nn) do begin       read(fin,k); write(k,' ');       j: =1; dub: =false;       while (j< =n) and (not dub) do begin           dub: =(a[j]=k); inc(j);           end;       if not dub then begin inc(n); a[n]: =k; inc(j) end       end;   writeln;   close(fin);   for i: =1 to n do write(a[i],' ');   writeln; writeln('n=',n);   assign(fout,'out.dat'); rewrite(fout);   write(fout,n); close(fout);   readkey end. тестовое решение: 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 в качестве бонуса - решение этой же в современной системе программирования pascalabc.net. // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var fin,fout: file of integer;   reset(fin,'in.dat');   var k: integer;   var a: =new integer[fin.filesize];   var n: =0;   while not eof(fin) do begin       read(fin,k); a[n]: =k; inc(n)       end;   close(fin);   a.println;   var b: =a.tohashset;   b.println; writeln('n=',b.count) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 и вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? чтобы показать, "как все это сложно"?

Популярно: Информатика