Форум АНТИЧАТ - Студентам с лабораторными сюда

#11

07.10.2009, 20:01

Dosia

Участник форума

Регистрация: 05.06.2009

Сообщений: 127

Провел на форуме:
1313455

Репутация: 249

Цитата:

Сообщение от superboy4

Среда: Паскаль
Задача1: Дано трехзначное число. Найти сумму и произведение его цифр.

задача2: Дан номер некоторого года (целое положительное число). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год.

помогите решить!

Задача 1:

Код:

program SUMMA_I_PROIZVEDENIE;

var
intI,tmpI,Summa,Code,Proizv:integer;
strA:string;

begin
writeln('Vvedite chislo');
readln(intI);
str(intI,strA);
Summa:=0;
Proizv:=1;
for intI:=1 to length(strA) do begin
val(strA[intI],tmpI,Code);
Summa:=Summa+tmpI;
Proizv:=Proizv*tmpI;
end;
writeln('Summa chisel chisla ',strA,' = ',Summa);
writeln('Proizvedenie chisel chisla ',strA,' = ',Proizv);
readln;
end.

Результат работы:

Код:

Vvedite chislo
362
Summa chisel chisla 362 = 11
Proizvedenie chisel chisla 362 = 36

Vvedite chislo
4542
Summa chisel chisla 4542 = 15
Proizvedenie chisel chisla 4542 = 160

Задача 2:

Код:

program Nom_Stolet;

var
intI,Nomer_Stoletia:integer;

begin
Nomer_Stoletia:=1;
writeln('Vvedite god');
readln(intI);
while intI-100 > 0 do begin
Nomer_Stoletia:=Nomer_Stoletia+1;
intI:=intI-100;
end;
writeln('Nomer stoletia = ',Nomer_Stoletia);
readln;
end.

Результат работы:

Код:

Vvedite god
5000
Nomer stoletia = 50

Vvedite god
5001
Nomer stoletia = 51

Цитата:

Сообщение от G4bR1eL

Программа на TP с элементами массивов.
Ввести 5 целых чисел. Вывести на экран это число (результатирующее), корень этого числа и квадрат этого числа.

Код:

program VVOD_CHISLA;
var
intI:array [1..5] of longint;
intA,intB,tmp:integer;
Rezultir:longint;

begin
Rezultir:=0;
for intA:=1 to 5 do begin
writeln('Vvedite zifru nomer ',intA);
readln(intI[intA]);
tmp:=1;
for intB:=1 to 5-intA do tmp:=tmp*10;
Rezultir:=Rezultir+intI[intA]*tmp;
end;
writeln('Eto chislo = ',Rezultir);
writeln('Korenb iz chisla ',Rezultir,' = ',sqrt(Rezultir):6:4);
writeln('Kvadrat chisla ',Rezultir,' = ',sqr(Rezultir));
readln;
end.

Результат работы:

Код:

Vvedite zifru nomer 1
0
Vvedite zifru nomer 2
0
Vvedite zifru nomer 3
0
Vvedite zifru nomer 4
2
Vvedite zifru nomer 5
5
Eto chislo = 25
Korenb iz chisla 25 = 5.0000
Kvadrat chisla 25 = 625

Vvedite zifru nomer 1
1
Vvedite zifru nomer 2
6
Vvedite zifru nomer 3
3
Vvedite zifru nomer 4
8
Vvedite zifru nomer 5
4
Eto chislo = 16384
Korenb iz chisla 16384 = 128.0000
Kvadrat chisla 16384 = 268435456

Vvedite zifru nomer 1
1
Vvedite zifru nomer 2
2
Vvedite zifru nomer 3
3
Vvedite zifru nomer 4
4
Vvedite zifru nomer 5
5
Eto chislo = 12345
Korenb iz chisla 12345 = 111.1081
Kvadrat chisla 12345 = 152399025

Слишком большие числа лучше не писать. Диапазон Longint [-2147483648 .. 2147483647]

Последний раз редактировалось Dosia; 07.10.2009 в 20:44..