Использование языка ассемблера в программах на Turbo Pascal 7.0 Тема: Проектирование программы оболочки.

Задание: Написать программу наподобие FAR manager, NC, проводник, позволяющую переходить по каталогам на текущем носителе. При отображении в текущем каталоге файлы с заданным атрибутом выделить цветом, отличающимся от остальных файлов. Внутри каждого файла текущего каталога найти количество повторений слова, заданно-го преподавателем.

Требования к работе: Файлы обрабатывать как нетипизированные. Подготовить заранее не менее 5 примеров. В число примеров обязательно должны быть включены файлы, в которых слово начинается в одном блоке и заканчивается в другом. Лабораторную работу можно писать в среде Delphi или Turbo Pascal.

Состав отчета: Титульный лист; постановка задачи; текст программы; описание результатов работы с экранными копиями.

Варианты лабораторных работ. Вариант состоит из трех цифр: первая - длина искомого слова; вторая - атрибут файла; третья - цвет выделения. (10 вариант) 7-(длина слова) 2-(атрибут файла скрытый) 5-(цвет коричневый)

Лабораторная работа 4

Тема: Расчет приближенных корней уравнения.

Задание: Написать на языке С (Visual C) программу по нахождению корня уравнения на промежутке с точностью до 0,01. Вывести график функции, точки приближения на графике, количество итераций, значение корня.

Состав отчета: Титульный лист; постановка задачи; текст программы; описание результатов работы с экранными копиями.

Варианты лабораторных работ. В вариантах работ первая цифра - уравнение, вторая - промежуток; третья - метод.

(10 вариант) уравнение: 3Х^(3)-13Х^(2)-14Х+57 Промежуток: [1,3] (метод дихотомии).

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

ssnz344

13.03.2023 00:17

Нужно создать в таблице exsel. в первый столбец вбиваем количество выстрелов, а во втором количество попаданий и в третьем столбце процент попаданий. и еще один ответ,...

AliKsandraSm

15.08.2021 07:49

Ввести два числа и вывести их произведение на экран...

филя24

15.08.2021 07:49

Написать программу в pascal! заполнить массивы а[1: 15] и в[1: 15] случайными числами от 0 до 100. создать массив с[1: 15], элементами которого является сумма соответствующих...

Mauntians

25.03.2021 04:08

1.Дана сторона квадрата a. Найти его периметр P = 4·a. Если найденное значение превышает 12, вывести результат на экран, иначе вывести сообщение «Периметр не превышает...

Котмяумяу

22.11.2022 00:50

1Какими методами поиска информации в электронной таблице Excel вы познакомились? 2Каковы функции команды найти и выделить? 3 Что такое заменяемость символ ?Для чего он...

jotik991p010co

20.02.2023 07:04

Световое табло состоит из лампочек, каждая из которых может находиться в двух состояниях: включено или выключено . сколько различных сигналов можно передать при такого...

jojolili

24.03.2021 21:33

Сформулюйте наслідок з теореми Вієта ...

karnastia

27.01.2020 07:40

Что защищали старообрядцы? Тема:Русская православная церковь в 17 веке. Реформа патриарха Никона и раскол...

Baka1111

27.01.2020 07:40

составить синквейн война за независимость и создание США...

anita4566

30.04.2020 18:25

У мішку яблук у 5 разів більше ніж у кошику. після того як з мішка переклали в кошик 4 яблука то в ньому стало в 3 рази менше яблук ніж у мішку. скільки спочатку було...

Ответ:

Dimka3113

09.11.2021 21:46

задача 1.
a=input().split()

f=-1

for i in range(len(a)):

if int(a[i])>0 and int(a[i])%2==0:

if f==-1:

min1=int(a[i])

max1=int(a[i])

f=1

elif int(a[i])>max1:

max1=int(a[i])

elif int(a[i])<min1:

min1=int(a[i])

if f==-1:

print('not solution')

else:

print('max=',end='')

print(max1)

print('min=',end='')

print(min1)

задача 2.

a=input().split()

k=0

max1=float(a[0])

for i in range(len(a)):

if float(a[i])==max1:

k+=1

elif float(a[i])>max1:

k=1

max1=float(a[i])

print(k)

задача 3.

a=input().split()

min1=float(a[0])

min2=float(a[0])

min3=float(a[0])

for i in range(len(a)):

if float(a[i])<min1:

min3=min2

min2=min1

min1=float(a[i])

elif float(a[i])<min2:

min3=min2

min2=float(a[i])

elif float(a[i])<min3:

min3=float(a[i])

print(min1)

print(min2)

print(min3)

0,0(0 оценок)

Ответ:

ekozhushkova

09.11.2021 21:46

Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.
1) заполните массив случайными числами и переставьте соседние элементы, поменяв 1-ый элемент со 2-м,

1) заполните массив случайными числами и переставьте соседние элементы, поменяв 1-ый элемент со 2-м,

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку