Практика программирования (Бейсик, Си, Паскаль)


Задачи,советы и ответы - часть 2


Аналогом ввода пустого значения INPUT А$ в QBasic в Паскале является использование процедуры read/readln без параметров. В этом случае для проталкивания программы потребуется нажать клавишу <Enter>.

Программа 2_01.bas

RЕМ Ввод, вывод и суммирование 20 целых чисел

DIM A(20)

F$="##:###### "

PRINT "Введите 20 чисел, по одному в строке"

FOR 1=0 ТО 19: INPUT A(I): S=S+A(I): NEXT I

FOR 1=0 TO 19: PRINT USING F$;I+1;A(I); : NEXT I

INPUT A$

FOR 1=0 TO 19: PRINT USING F$;I+1;A(I): NEXT I

PRINT " —

PRINT USING " ######"; S

END

Программа 2_01.с

/* Ввод, вывод и суммирование 20 целых чисел */

#include <stdio.h>

#include <conio.h>

main() {

int j,s=0,a[20];

clrscr();

printf("Введите 20 чисел, по одному в строке\n"

for(j=0; j<20; j++) { scanf("%d",&a[j]); s+=a[j]; }

for(j=0;j<20;

printf("%2d:%-6d ",j+l,a[j]>; for(j=0;j<20; j++)

printf("\n%2d:%6d ",j+l,a[j]) ; printf("\n -------\n%9d",s);

getch();

Программа 2_01.pas

program io_numbers;

{ Ввод, вывод и суммирование 20 целых чисел }

uses Crt;

var

j, s:integer;

a:array [1..20] of integer; begin

s: =0 ;

clrscr;

writeln('Введите 20 чисел, по одному в строке"!

for j:=1 to 20 do

begin readln(a[j]); s:=s+a[j]; end;

for j:=l to 20 do write(j:2,':',a[j]:6,' ');

writeln('Нажмите любую клавишу';

readkey; clrscr;

for j:=l to 20 do writeln(j:2,':',a[j]:6,' ');

writeln(' --------');

writeln (s: 9).;

readln; end.

Задание 2.02. Ввод и вывод вещественных данных

Самостоятельно выполнить задание 2.01 в предположении, что вводимые числа вещественные и имеют две значащие цифры в дробной части.

Задание 2.03. Преобразование десятичного числа в системы С основанием 2, 8, 16

Ввести длинное неотрицательное число. Вывести его в двоичном, восьмеричном и шестнадцатеричном представлении.

Совет 1 (QBasic)

Предлагается воспользоваться стандартными функциями ост? и НЕХ$, преобразующими числовой аргумент в строку с его представлением в соответствующей системе счисления. Для двоичного представления можно распечатать восьмеричные цифры их трехразрядными двоичными эkвивaлeнтawш




- Начало -  - Назад -  - Вперед -