В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
khezh073
khezh073
08.11.2022 22:32 •  Информатика

Елементи кола пронумеровані так: 1-радіус, 2-діаметр, 3-довжина, 4-площа. Дано номер елемента і його значення. Знайти інші елементи​

Показать ответ
Ответ:
liloanimatronic
liloanimatronic
01.04.2020 15:41
Сами программы не проверял, если они правильные, то
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
repeat
  writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
  writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
  readln(D.litri);
  if D<>'stop' then write(DV,D);
  until D='stop';
close(DV);
readln;
end.

1)
uses crt;
type danie=record
litri:string;
cislo:string;
max,min:real;
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);

if min='0' then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);

if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;

writeln('min=',min);
wtiteln('max=',max);

close(DV);
readln;
end.

Если это не учебная задача, то лучше сделать ее в Access. Там  интерфейс красивый и дружелюбный легко получить.
0,0(0 оценок)
Ответ:
Polina6002
Polina6002
02.10.2020 04:50
1)Алгоритм решения задачи: Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.Площадь крыши бака (круга) вычисляется по формуле p * d2 /4 (где p – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
Программа на языке Паскаль: 
const pi = 3.14;  
var d, h, b: real;
     top, wall, q: real;
     q_int: integer;  
begin write('Диаметр: ');
readln(d); write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);  
     top := pi * sqr(d) / 4.0;
    wall := pi * d * h;
     q := (top + wall) / b;
    q_int := trunc(q) + 1;  
write('Количество банок: ', q_int);  
readln
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота