Сравнительная характеристика роботов в машиностроении - файл n4.doc

Сравнительная характеристика роботов в машиностроении
Скачать все файлы (546.3 kb.)

Доступные файлы (6):
n1.xls54kb.09.12.2010 15:39скачать
n2.pas
n3.pas
n4.doc62kb.31.05.2012 09:34скачать
n5.ppt729kb.09.12.2010 15:39скачать
n6.doc307kb.09.12.2010 18:03скачать

n4.doc

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Государственное образовательное учреждение высшего профессионального образования

Ижевский Государственный Технический Университет

Кафедра АСОИУ


Отчет по практической части

по дисциплине «Информатика»

Выполнил студен группы

Проверила: Малина О.В.


Ижевск 2010
  1. ПОСТАНОВКА ЗАДАЧИ





  1. Решить задачу. Вводится 12 чисел. Найти сумму положительных четных чисел и максимальный среди отрицательных

  2. Решить задачу. Вводится текст. Конец ввода точка. Найти количество запятых.
  1. БЛОК-СХЕМЫ



Задача 1.

max:=n;

max:=n

Да

Нет

Да

Нет

Да

i:=1;


Нет

max:=0; summ:=0;

summ:=summ+n

Нет

Да

Задача 2.



Inc(c)


C:=0; pos_:=Pos('.', str);


Да

Нет

i:=1;


i:=i+1;


Нет

Да


  1. ТЕКСТ ПРОГРАММЫ



1. Задача на Integer

var

i : integer;

max, summ, n : integer;

Begin

max:=0;

summ:=0;

For i:=1 TO 12 do

begin

readln(n);

if (n
if (n>max) and (n<0) then max:=n;

if (n>0) and (n mod 2=0) then summ:=summ+n;

end;
if max=0 then writeln('Sredi chisel net otrizatelnih')

else writeln('Maximum sredi otrizaatelnih ', max);
writeln('Summa chetnih polozhitelnih ', summ);

End.
2. Задача на Char

var

i, c: integer;

str: string;

pos_: byte;

Begin

readln(str);

c:=0;

pos_:=Pos('.', str);
For i:=1 To pos_-1 do

Begin

If str[i]=',' then inc(c);

end;
Writeln('Kolichestvo zapyatih ravno ', c);

End.
  1. РЕЗУЛЬТАТЫ ТЕСТИРОВАНИЯ



1. Задача на Integer

а)

Вводим числа:

1, 10, 12,0, 5, -211, -400, 220, 141, 110, -1,1
Результат:

Maximum sredi otrizaatelnih -1

Summa chetnih polozhitelnih 352


2. Задача на Char

а)

Вводим строку:

As,,,,xx, asdf ax.,,
Результат:

Kolichestvo zapyatih ravno 5
Учебный текст
© perviydoc.ru
При копировании укажите ссылку.
обратиться к администрации