Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. количество чисел должно задаваться во время работы программы. (цикл для)(паскаль )
Program Nooobodyyy; uses crt; var i,how:integer; ch,appr,sum:real; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое'); sum:=0; write('Введите количество чисел: '); readln(how); for i:=1 to how do begin write('Введите ',i,'-e число: '); read(ch); sum:=sum+ch; end; appr:=sum/how; writeln('Cреднее арифметическое равно ',appr:8:2); end.
Var i, count : integer; summ, temp : real; begin summ := 0; readln(count); for i := 1 to count do begin readln(temp); summ := summ + temp; end; writeln(summ / count); end.
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2). Сделать это можно так: while not eof(fr) and (kol=0) do begin read(fr, Marshrut); if (Marshrut.NK.N <> '11') then write(fr2,Marshrut) else begin inc(kol); y:=Marshrut; end; end; if not eof(fr) then begin read(fr, Marshrut); write(fr2,Marshrut); end; if (kol=1) then write(fr2,y); Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант: (здесь k1 и k2 - целые, а y - типа ) if (Marshrut.NK.N = '11') then begin writeln('... '); inc(kol); y:=Marshrut; k1:=FilePos(fr)-1; k2:=FilePos(fr); if not eof(fr) then begin read(fr, Marshrut); seek (fr, k1); write(fr, Marshrut); seek (fr, k2); write (fr, y); end;
''' В небоскрёбе n этажей и 1 подъезд, на каждом этаже по 3 квартиры, лифт останавливается только на нечётных этажах. Человек садится в лифт и нажимает номер нужной ему квартиры. На какой этаж дома довезёт лифт человека? '''
n = int(input('n = ')) ap_to = int(input('Номер квартиры: ')) rem_floor = 1 if ap_to % 3 > 0 else 0 floor_ap_to = ap_to // 3 + rem_floor if floor_ap_to > n: raise ValueError('Такой квартиры нет!') elif floor_ap_to % 2 == 0: print('Лифт довезёт человека либо на {} этаж (придётся подняться на 1 этаж по лестнице,'.format(floor_ap_to -1)) print('либо на {} этаж, и на 1 этаж придётся спуститься.'.format(floor_ap_to + 1)) else: print('Лифт довезёт человека на нужный этаж.')
uses crt;
var
i,how:integer;
ch,appr,sum:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln(); writeln();
writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое');
sum:=0;
write('Введите количество чисел: '); readln(how);
for i:=1 to how do
begin
write('Введите ',i,'-e число: '); read(ch);
sum:=sum+ch;
end;
appr:=sum/how;
writeln('Cреднее арифметическое равно ',appr:8:2);
end.