Написать в паскале 93.написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом. 95.стороны одного прямоугольника равны a и b. стороны другого равны x и y. написать алгоритм и программу проверки прямоугольников на равенство 102.известна заработная плата сотрудника. вычислить величину подоходного налога. 107. по заданным значениям одного из сопротивлений цепи и ее полного сопротивления определить, имеет ли место в данной цепи параллельное соединение проводников. 108.из одной точки к прямой проведены перпендикуляр и наклонная. по длинам отрезков определить, который из них перпендикуляр.
Ответы
№95 var x,y,a,b: integer; begin cls; a: =4; b: =10; x: =4; y: =10; if (a=x)and(b=y) then begin write(1); end else if (b=x)and(a=y) then begin write(1); end else write(0); end.//0 - не равны; 1- равны
{pascal abc.net 3.2 } var f: text; s: string; i, l_line, slov: integer; begin assign(f, 'd: \in.txt'); reset(f); while not eof(f) do begin readln(f,s); s : = trim(s); l_line : = length(s); if l_line < > 0 then begin for i: =1 to l_line do if s[i] = ' ' then slov : = slov + 1; slov : = slov + 1; end; end; close(f); assign(f, 'd: \out.txt'); rewrite(f); write(f, slov); close(f); end.
{pascal abc.net 3.2 входной текстовый файл с числами ч/з один пробел. (в конце не должно быть пробелов! ) } const f_in_name = 'd: \in9.txt'; f_tmp_name = 'd: \tmp.tmp'; var f_in,f_out: text; i, k: integer; begin assign(f_in, f_in_name); assign(f_out, f_tmp_name); reset(f_in); rewrite(f_out); k : = 0; while not eof(f_in) do begin read(f_in, i); k : = k + 1; if k mod 2 < > 0 then write(f_out, ' ', i); end; close(f_out); close(f_in); deletefile(f_in_name); renamefile(f_tmp_name, f_in_name); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
(874+631)%5=(9**3)//8=32//(789%5)=32/(789%5)=(62+57)//(5*3)=
Автор: nekarpova
это одно задание Нужно нарисовать на координатной плоскости
Автор: Chikichev456