Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
РТ
Кафедра:
Не вказано
Інформація про роботу
Рік:
2014
Тип роботи:
Розрахункова робота
Предмет:
Інформатика
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет „ Львівська політехніка “
Розрахункова робота
З дисципліни
«Інформатика»
Завдання №1
Тема:Одновимірний масив
Завданння: Задано одновимірний масив сукупності чисел =(0.1,-25.2,0,888.35,-424.48,0,15,-7,-195,2,0,0.04,-15.2,57.6); Обчислити суму додатніх елементів масиву.
Блок-схема
Код програми:
program mas1;
const
y:array [1..14] of real = (0.1,-25.2,0,888.35,-424.48,0,15,-7,-195,2,0,0.04,-15.2,57.6);
var i:integer;s:real;
begin
for i:=1 to 14 do
if y[i]>0 then s:=s+y[i] ;
if s=0 then writeln('elementiv masivu bilshich 0 nema')
else writeln('suma=',s);
readln
end.
Результат: suma =9.63;
Завдання №2
Тема:Утворення одновимірних масивів
Завдання:Утворити масив
16.01.2014 05:04
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора