Составьте программу, вычисляющую значение функции y=a2+3а+1, при вводимом значении а

С++ ПОМОГИТЕ СРОЧНОО! Одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить, сколько амёб будет через 3, 6, 9, 12, …

анатолий8989989 [17]

#include <iostream>
#include <cmath>
using namespace std;

long Amt(int *hours) {
 long p=1;
 for(int i=0;i<*hours/3;i++) p*=2;
 return(p);
}

int main() {
 setlocale(LC_ALL, "RUS");
 int i,T;
 cout<<"Введите предельное количество часов: ";
 cin>>T;
 for(i=3;i<=T;i+=3)
 {cout<<"Время, час "<<i<<", амеб: "<<Amt(&i)<<endl;}
 system("PAUSE");
}

Тестовое решение:
Введите предельное количество часов: 60
Время, час: 3, амеб: 2
Время, час: 6, амеб: 4
Время, час: 9, амеб: 8
Время, час: 12, амеб: 16
Время, час: 15, амеб: 32
Время, час: 18, амеб: 64
Время, час: 21, амеб: 128
Время, час: 24, амеб: 256
Время, час: 27, амеб: 512
Время, час: 30, амеб: 1024
Время, час: 33, амеб: 2048
Время, час: 36, амеб: 4096
Время, час: 39, амеб: 8192
Время, час: 42, амеб: 16384
Время, час: 45, амеб: 32768
Время, час: 48, амеб: 65536
Время, час: 51, амеб: 131072
Время, час: 54, амеб: 262144
Время, час: 57, амеб: 524288
Время, час: 60, амеб: 1048576
Для продолжения нажмите любую клавишу . . .

0 0

4 года назад

даю 20 балов 2.Напишите класс, который принимает с клавиатуры 12 целых чисел и выводит на экран, сколько из них были больше, чем

Руслан 1981

Поскольку язык не указан, отвечающий вправе использовать любой. В данном случае выбран VBA из состава Microsoft Office 2003 (реализация в среде Excel). Некоторые дамы и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков VB/VBA/VBS недостойным упоминания. Теперь у них есть возможность написать что-то аналогичное на С++/Delphi и сравнить полученные коды с приведенным.

Собственно, описание класса Class1:
Private Const n = 12

Public Sub HowManySucc(ByRef kol As Integer)
 Dim i As Integer, m1 As Integer, m As Integer
 kol = 0
 m1 = GetInt()
 For i = 2 To n
 m = GetInt()
 If m > m1 Then kol = kol + 1
 Next i
End Sub

Private Function GetInt() As Integer
 Dim n As Integer
 GetInt = Int(Val(InputBox("Введите целое число")))
End Function

Вызов для тестирования:
Sub aa()
 Dim oC As New Class1, k As Integer
 oC.HowManySucc k
 MsgBox "Целых, больше первого: " + Str(k)
End Sub

0 0

1 год назад

Последняя буква согласная или первая буква согласная Коза Барсук Осел Оса

Iodbol [35]

Коза - первая буква согласная,
Барсук - первая и последняя согласные,
Осел - последняя буква согласная,
Оса - только если в середине слова буква согласная.

0 0

4 года назад

Написать в Паскале Дано действительное число х, натуральное число n. Вычислить:

Max75im [6]

Var sum:real; n:integer; x,factorial,multiplier:real;
begin
readln(x,n);
factorial:=1;
multiplier:=1;
for n:=1 to n do begin
factorial*=n;
multiplier*=x;
sum+=multiplier/factorial;
end;
writeln(sum);
end.

0 0

4 года назад

Написать программу на языке Pascal. Написать программу, которая выводит 10 одинаковых чисел

Unmersy [24]

Var a,b,c,d:integer;
begin
b:=0;
randomize;
a:= random(1000);
while b<>10 do
begin
writeln (a);
b:=b+1;
end;
end.

0 0

3 года назад