пользователей: 30398
предметов: 12406
вопросов: 234839
Конспект-online
РЕГИСТРАЦИЯ ЭКСКУРСИЯ

Билет №9(2,3)

2. Дана последовательность целых чисел. Вычислить для положительных и отрицательных чисел средние значения и их количество. Входящий файл input.txt, вывод осуществляется в файл output.txt.

Program prog92
integer, allocatable :: a(:) 
real m,l
open(1,file="input.txt")
open(2,file="output.txt")
k=0;
do while (.not.eof(1))
read(1,*)iii 
k=k+1
end do
close(1)
open(1,file="input.txt")
allocate (a(k))
n=0
m=0
l=0
j=0
do i=1, k
read (1,*) inp
a(i)=inp
end do
do i=1, k
if (a(i)>0) then
n=n+1
m=m+a(i) 
else
j=j+1
l=l+a(i)
end if
end do
m=m/n
l=l/j
write(2,*) "кол-во > 0", n,"Среднее", m,"кол-во < 0", j,"Среднее", l
pause
end

3.Дана входная строка. Найти в ней последовательности повторяющихся (без учета регистра) символов и сократить их до одного. Например: clip_image002(23).gif.

#include <iostream>
#include <string>
#include <algorithm>
using namespace std;
int main()
{
string s;
cout<<"Введите строку";
cin>>s;
s.resize( unique( s.begin(), s.end() ) - s.begin() );
cout << s << endl;
system("Pause");
return 0;
}


10.06.2015; 19:06
хиты: 199
рейтинг:0
Точные науки
информатика
Языки программирования
для добавления комментариев необходимо авторизироваться.
  Copyright © 2013-2024. All Rights Reserved. помощь