Для студентов НИУ «МЭИ» по предмету ИнформатикаИнформатика задача 2.6 вариант 24Информатика задача 2.6 вариант 24
2019-09-062019-09-06СтудИзба
ДЗ: Информатика задача 2.6 вариант 24 вариант 24
Описание
Описание файла отсутствует
Характеристики домашнего задания
Предмет
Учебное заведение
Семестр
Вариант
Просмотров
66
Скачиваний
0
Размер
63,76 Kb
Список файлов
- Информатика задача 2.6 вариант 24
- Task26var24_true.cfg 398 b
- Task26var24_true.dof 1,82 Kb
- Task26var24_true.dpr 637 b
- Task26var24_true.txt 637 b
- Task26variant24_true.docx 62,49 Kb
- Прочти меня!!!.txt 136 b
Task26var24_true
program Task26var24_true;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
const l=10;
type
mas=array[1..l,1..l] of Real;
var
i,j,m,n:Integer;
x:mas;
f:boolean;
begin
m:=2;
n:=10;
for i:=1 to m do
for j:=1 to n do
begin
write('A[',i,',',j,']=');
read (x[i,j]);
end;
j:=0;
repeat
f:=False;
j:=j+1;
if (x[1,j]<x[1,j+1]) and (x[2,j]>x[2,j+1]) then
f:=True;
if f then
writeln('column ',j, ' Sqr(',x[1,j]:6:2,'-',x[2,j]:6:2,' ) = ',Sqr(x[1,j]-x[2,j]):6:2)
else writeln('column ',j,' F = False')
until j=9;
read(n);
end.
Прочти меня!!!
Файл скачан с сайта StudIzba.com
При копировании или цитировании материалов на других сайтах обязательно используйте ссылку на источник
Хочешь зарабатывать на СтудИзбе больше 10к рублей в месяц? Научу бесплатно!
Начать зарабатывать
Начать зарабатывать