Задания для практических работ 3. Составьте Составьте таолицу умножения на число n (1s nѕ 9 Значение п задаётся в ячейке В2. 1 аbѕица умерена на число 3 Моите произведение Задания для практических работ on un C Внимание! Для выполнения практических задании использу имеющийся в вашем распоряжении табличный процессор. Все вы.. полненные задания сохраняйте на разных листах одной книги, з нящейся в вашей личной папке. и составьте таблицу умножения чисел первого десятка. Исполь- зуйте смешанные ссылки. 5. Подготовьте таблицу вида: 1. Представьте в алектронной таблице свои расходы за неделю. для заполнения диапазонов ячеек вести, 18:17 используйте формулы. Образец структуры и оформления таблицы: а и Расходы за неделю Come Booper Der 10 р. р. 21 Сумма ср. 1000р 10. 15 ор 529, 0р. жор 2. Оформите лист для получения количества информации в раз- ных единицах: 1 Емкость диска в бита Емкость диска в байтах Емкость диска в килобайтах Емкость диска в мегабайтах 5 Емкость диска в гигабайтах Значения в диапазоне ячеек В1:B20 получите автозаполнением. Выполните следующие расчёты: а) получите сумму всех целых чисел от 1 до 20 в ячейке В21; б) получите в диапазоне ячеек сі:С20 квадраты соответствую- щих чисел из столбца Ви сумму квадратов в ячейке С21; в) получите в диапазоне ячеек D1:D20 первые 20 чётных чисел и их сумму в ячейке D21. 6. В основу эффективного решения головоломки «Ханойская башня» положен алгоритм, суть которого сводится к следую- щему: для перемещения башни, состоящей из п колец, с перво- го стержня на третий мы должны решить чуть более задачу — переместить на второй стержень башню, состоящую из n-1 кольца. После этого нижний диск с первого стержня пе- ремещается на третий и повторно осуществляется перемеще- ние башни из n-1 кольца, но уже со второго диска на третий. Таким образом, число ходов, необходимых для перемещения Узнайте ёмкость в байтах жёсткого диска имеющегося в вашем распоряжении компьютера, запишите её в соответствующую ячейку диапазона ві:B5. Получите в других ячейках диапа- зона емкость жесткого диска в единицах измерения, указан- ных в соответствующих ячейках столбца А. 130 131
Ответы
Используем формулу Герона для нахождения площади треугольника по трем сторонам: S=√(p·(p-a)·(p-b)·(p-c)), где p - полупериметр, равный
p=(a+b+c)/2
Программа:
program z;
var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2:real;
begin
readln(a1,b1,c1); {ввод длин сторон первого треугольника}
p1:=(a1+b1+c1)/2; {полупериметр первого треугольника}
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника}
readln(a2,b2,c2); {ввод длин сторон второго треугольника}
p2:=(a2+b2+c2)/2; {полупериметр второго треугольника}
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника}
if s1=s2 {если площади треугольников равны}
then writeln('Yes') {то вывести положительный ответ}
else writeln('No'); {иначе вывести отрицательный ответ}
end.
p=(a+b+c)/2
Программа:
program z;
var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2:real;
begin
readln(a1,b1,c1); {ввод длин сторон первого треугольника}
p1:=(a1+b1+c1)/2; {полупериметр первого треугольника}
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника}
readln(a2,b2,c2); {ввод длин сторон второго треугольника}
p2:=(a2+b2+c2)/2; {полупериметр второго треугольника}
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника}
if s1=s2 {если площади треугольников равны}
then writeln('Yes') {то вывести положительный ответ}
else writeln('No'); {иначе вывести отрицательный ответ}
end.
uses crt;
type uchenik=record
fam:string[20];
im:string[20];
kls:string[3];
end;
var a:array[1..100] of uchenik;
n,i,j,k:byte;
begin
clrscr;
writeln('Сколько учеников n=');
readln(n);
writeln('Введите данные о ',n,' учениках:');
for i:=1 to n do
begin writeln('Ученик ',i);
write(' Фамилия: ');
readln(a[i].fam);
write(' Имя: ');
readln(a[i].im);
write(' Класс ( год+буква, 11а): ');
readln(a[i].kls);
end;
writeln('Однофамильцы в одном классе:');
k:=0; for i:=1 to n-1 do for j:=i+1 to n do
if (a[i].fam=a[j].fam)and(a[i].kls=a[j].kls) then
begin
k:=1;
writeln(a[i].kls,' ',a[i].fam,' ',a[i].im,' ',a[j].fam,' ',a[j].im);
end;
if k=0 then write('Однофамильцев в одном классе нет!');
readln
end.
type uchenik=record
fam:string[20];
im:string[20];
kls:string[3];
end;
var a:array[1..100] of uchenik;
n,i,j,k:byte;
begin
clrscr;
writeln('Сколько учеников n=');
readln(n);
writeln('Введите данные о ',n,' учениках:');
for i:=1 to n do
begin writeln('Ученик ',i);
write(' Фамилия: ');
readln(a[i].fam);
write(' Имя: ');
readln(a[i].im);
write(' Класс ( год+буква, 11а): ');
readln(a[i].kls);
end;
writeln('Однофамильцы в одном классе:');
k:=0; for i:=1 to n-1 do for j:=i+1 to n do
if (a[i].fam=a[j].fam)and(a[i].kls=a[j].kls) then
begin
k:=1;
writeln(a[i].kls,' ',a[i].fam,' ',a[i].im,' ',a[j].fam,' ',a[j].im);
end;
if k=0 then write('Однофамильцев в одном классе нет!');
readln
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информатика, сделайте нормальное решение желательно не листке, чтобы было решение, все что нужно.
Автор: Ragim777hazarovich
Написать программу в паскале вычисляющую n факториал.
Автор: Vrpeshka
Кто может написать кодировку сайтов с разных браузеров?
Автор: elenabarskova7145
Сколько раз будет выполнен цикл for n:=1 to 11 do? помгите
Автор: zdv686857
Дано предложение. напечатать все его слова, отличные от слова "". си
Автор: kozak8824
Лалаалдсдсдсдс
Дсжсжсжсжсжс
Объяснение:
Вот так