35

Информация, хранящаяся во внешней памяти обозначенная именем

pilotpn 12 марта 2023

Информация, хранящаяся во внешней памяти обозначенная именем. Помогите пожалуйста!

категория: информатика

55

Файловая система или файлы и папки

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике
12 марта 2023
Program vagoni; varA: array[1… 15] of real; B: array[1… 15] of real; C: array[1… 15] of real; i,m,q,j,d,N: integer; s,max_num, max_index: real; beginN: =15; m: =10; q: =50; writeln ('Vvedite massy vagonov sostava M sostoyashego iz 15 vagonov'); s: =0; Beginfor i: =1 to N doBeginwrite ('vagon_',i,'-> '); readln (a[i]); end; end; writeln ('); writeln ('VSE vagoni: '); for i: =1 to N dowriteln ('vagon_',i,'=',a[i],'tonn'); writeln ('); writeln ('); writeln ('Porojnie vagoni: '); for i: =1 to N dobeginif (A[i] <= m) thenwriteln ('porojniy vagon=', i); end; writeln ('); writeln ('grujenie vagoni: '); for i: =1 to N dobeginif (A[i] > m) then s: =s+a[i]; if (A[i] > m) thenwriteln ('grujeniy vagon=', i); end; Writeln ('Summa mass grujenih vagonov: ', s); if s>q thenwriteln ('previshenie massy! sostav ne mojet bit sformirovan') elsebeginwriteln; writeln ('Noviy sostav: '); j: =1; d: =1; for i: =1 to N{-1} doif A[i] > m thenbeginB[j]: =A[i]; writeln ('vagon_',j,'=',B[j],'tonn'); j: =j+1; end elsebeginC[d]: =A[i]; d: =d+1; end; end; Beginwriteln ('); writeln ('Ostatok: '); d: =d-1; WHILE d>0 dobeginwriteln ('vagon_',d,'=',C[d],'tonn'); d: =d-1; end; end; writeln ('); beginmax_index: =1; max_num: =B[1]; for i: =2 to j doif B[i] > max_num then beginmax_index: =i; max_num: =B[i]; end; writeln ('Maksimalnaya massa vagona sostava B=',max_num,' tonn', ' Ego nomer: ',max_index); end; end. Вот программа нужно чтоб формировался состав б в любом случае но не превышал 50 тонн, а остальные груженые вагоны вывести в остаток, и среди вагонов состава б найти вагон с максимальной массой

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...